Почему зависает поток?

[UKRtortik]

Почему при старте зависает поток?

procedure TNewThread.Execute;
var
StringList: TStringList;
RegExpr: TRegExpr;
HTTPSend: THTTPSend;
begin
HTTPSend := THTTPSend.Create;
StringList := TStringList.Create;
RegExpr := TRegExpr.Create;
RegExpr.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
HTTPSend.HTTPMethod('GET', Site);
StringList.LoadFromStream(HTTPSend.Document);
if RegExpr.Exec(StringList.Text) then
repeat
Site := RegExpr.Match[0];
Synchronize(Reg);
until not RegExpr.ExecNext;
RegExpr.Free;
HTTPSend.Free;
StringList.Free;
end;

procedure TNewThread.Reg;
begin
  Form1.sMemo2.Lines.Add(Site);
end;

[Человек_Борща]

потому что этот цикл бесконечный:

if RegExpr.Exec(StringList.Text) then
repeat
Site := RegExpr.Match[0];
Synchronize(Reg);
until not RegExpr.ExecNext;

[UKRtortik]

Сообщение от Человек_Борща

потому что этот цикл бесконечный:

if RegExpr.Exec(StringList.Text) then
repeat
Site := RegExpr.Match[0];
Synchronize(Reg);
until not RegExpr.ExecNext;

А как будет правильно?

[eval]

а зачем тут TStringList? абы напихать побольше, а зачем почему ...

[UKRtortik]

Человек_Борща, помогите исправить ошибку, не как не пойму что не так...