С сайта объявлений нужно распарсить номера продавцов

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls, IdAntiFreezeBase,
  Vcl.IdAntiFreeze, RegExpr;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    Button2: TButton;
    Memo2: TMemo;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
  St, St1, St2, St3, St4, St5, St6: string;
  r: TRegExpr;
  p: string;
  i: string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    St := IdHTTP1.Get(Edit1.Text);
    St1 := St;
    St3 := St;
    St2 := St;
    St4 := St;
    St5 := St;
    St6 := St;
 
    // id
    Delete(St, 1, pos('<div class="date">', St) -
      length('<div class=" date" ') + 5);
    Delete(St, pos('"> ', St), length(St));
    Memo1.Lines.Insert(0, St);
    // дата
    Delete(St1, 1, pos('<div class="date">', St1) +
      length('<div class="date"> '));
    Delete(St1, pos('<', St1), length(St1) - 1);
    Memo1.Lines.Insert(1, St1);
 
    // время
    Delete(St2, 1, pos('<span class="time">', St2) +
      length('<span class="time"> ') - 2);
    Delete(St2, pos('<', St2), length(St2));
    Memo1.Lines.Insert(2, St2);
    // квадратура, этаж
    Delete(St3, 1, pos('</a> </h3>', St3) - length('</a> </h3>') - 21);
    Delete(St3, pos('<', St3), length(St3));
    Memo1.Lines.Insert(3, St3);
    // адрес
    Delete(St4, 1, pos('<p class="address fader">', St4) +
      length('<p class="address fader">') - 1);
    Delete(St4, pos('<', St4), length(St4) - 1);
    Memo1.Lines.Insert(4, St4);
    // цена
    Delete(St5, 1, pos('<div class="about">', St5) +
      length('<div class="about">') + 8);
    Delete(St5, pos('</', St5), length(St5));
    Memo1.Lines.Insert(5, St5);
    r := TRegExpr.Create;
    r.InputString := Memo1.Lines[5];
    r.Expression := ('\d');
    if r.Exec(Memo1.Lines[5]) then // Если найдено совпадение в memo1, то
      repeat
        Memo2.Lines.add(r.Match[0]); // добавляем в Memo2 строку с совпадением
      until not r.ExecNext;
    p := Memo2.Lines[0] + Memo2.Lines[1] + Memo2.Lines[2] + Memo2.Lines[3] +
      Memo2.Lines[4] + Memo2.Lines[5] + Memo2.Lines[6] + Memo2.Lines[7] +
      Memo2.Lines[8] + Memo2.Lines[9];
    Memo1.Lines.Insert(5, p);
    Memo2.Clear;
    Memo1.Lines.Delete(6);
    // и так пока не закончатся совпадения (reg.NextExec - следующее совпадение)
  except
    on e: Exception do
  end;
 
  //агенство или частное лицо
  Delete(St6, 1, pos('<div class="data">', St6) +
    length('<div class="data">') + 12);
  Delete(St6, pos('<', St6), length(St6));
  Memo1.Lines.Insert(6, St6);
 
end;
 
end.