[bulldog]

попробывал так

Код:

FHttp.get('сайт');
      begin
 while not Terminated do for I := 1 to h do//подвисает здесь
  begin
   Sleep(1000);
   Synchronize(DoAnything);
FHttp.get('сайт'+ g1);

procedure BOT.DoAnything;
begin
Form1.Caption := IntToStr(i);
end;