var str,buf:string; x:longword; i,n:byte;
begin
   str:=edit1.text;
   n:=length(str);
   i:=1; //счётчик
   while i<=n do //FOR не подойдёт, т.к. длина строки меняться будет
     if str[i] in ['0'..'9'] then
     begin
       buf:=buf+str[i];
       delete(str,i,1);
       dec(n); //уменьшаем длину строки, а счётчик не трогаем
     end
     else inc(i); //если не цифра, то просто увеличим счётчик
   x:=strtoint(buf);
end;

var str,buf:string; x:longword; i,n:byte;
begin
    str:=edit1.text;
    n:=length(str);
    i:=1;
    while i<=n do
    begin
      if str[i] in ['0'..'9'] then
      begin
        buf:=buf+str[i];
        delete(str,i,1);
        dec(n);
      end
      else inc(i);
    end;
    x:=strtoint(buf);
end;

{$apptype windows} //Режим Windows-приложения
{$reference System.Windows.Forms.dll}
uses
   System, //Системный модуль
   System.Windows.Forms; //Модуль Windows-форм
var
   myForm:Form; //Новая форма
   myLabel:system.Windows.Forms.Label; //Новая метка

procedure myFormKeyPress(sender:Object; //Объект-отправитель сообщения
           e:System.Windows.Forms.KeyPressEventArgs //Структура с данными
           );
Begin
   //Прибавляем к существующему тексту нашей метки символ нажатой клавиши
   myLabel.Text+=e.KeyChar;
end;

begin
   myForm:=new Form; //Создаём форму
   myForm.Text:='Программа'; //Заголовок формы
   //Назначаем обработчик события нажатия кнопки, если форма имеет фокус
   myForm.KeyPress+=myFormKeyPress;
   //Добавляем метку (надпись на форме)
   myLabel:=new system.Windows.Forms.Label; //Создаём метку
   myLabel.AutoSize:=True; //Авторазмер = да
   myLabel.Left:=0; //Позиция (0,0) от левого верхнего угла формы
   myLabel.Top:=0;
   myForm.Controls.Add(myLabel); //Добавляем метку на нашу форму
    
   Application.Run(myForm); //Запускаем приложение с формой myForm
end.