[bulldog]

Как правельней приостановить поток, перед отправкай постом даных, то есть поток сначала заходит на сайт, ищет капчу, получает, выводит на другую форму и приостанавливается, до нажатий кнопок ok или cancel

Код:

procedure TMyThread.Execute;
HTTP_1.get('айт + 'login.php?r=',s);
If pos('image.php?', s.datastring)>0 then
begin
synchronyze(capcha)
end
else
inf.Add('username=' +Login);
inf.Add('password=' + Password);
HTTP_1.Post(сайт +'login.php',inf,s);
inf.Free;
end;

procedure.capcha;
 var
 inf:TStringList;
img: TMemoryStream;
png: TPNGObject;
begin 
   inf:=tstringlist.create;
 img:=TMemoryStream.Create;
 HTTP_1.get(сайт + 'image.php?',img);
 img.Position:=0;
 png:= TPNGObject.Create;
 png.LoadFromStream(img);
 Form2.Image1.Picture.Assign(png);
png.Free;
img.Free;
Form2.Edit1.Text:= '';
Form2.show;
try
inf.Add('username=' +Login);
inf.Add('password=' +Pass);
inf.Add('code=' + Form9.Edit1.Text);
finally
inf.Free;
end;