procedure TForm1.FormCreate(Sender: TObject);
var
 i1, i2, i3: integer;
 buff_bool: boolean;
 buff, buff_int: string;
begin
 buff_bool:=false;
 Memo1.Lines.LoadFromFile('c:\pars.txt');

 for i1:=0 to Memo1.Lines.Count-1 do
  begin
    for i2:=1 to length(Memo1.Lines.Strings[i1]) do
     begin
       buff_bool:=false;
       buff:=Memo1.Lines.Strings[i1];

       if buff[i2] in ['0'..'9'] then
         begin

           for i3:=0 to 5 do
            begin

              if (buff[i2+i3] in ['0'..'9'])=false then
               begin
                 buff_bool:=true;
                 break;
               end
              else
               begin
                buff_int:=buff_int+buff[i2+i3];
               end;

            end;

         end
        else
         begin
           buff_bool:=true;
         end;

       if buff_bool=false then
        begin
          Memo2.Lines.Add(buff_int);
        end;

       buff_int:='';
     end;
  end;
end;