выполнить Sleep(1000); N раз

[oxJass]

Сообщение от bulldog5293

vovk ну а как тогда сделать что бы форма не висла?

вам нужна остановка?
если нет используйте таймер

timer1.inteval:=1000*N;
А в таймере: timer1.enabled:=false;  
 *Свой код, который будет выполнятся после 1000*N

[bulldog5293]

вроде ж уже все исправляли в теме в сетях, почему б не воспользоватся?

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

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

вам нужна остановка?

скорее всего приостановка, что бы через N времини продолжить код, sleep вешает форму, ttimer в потоке тоже нечего не даст

[Alexei91]

Application.ProcessMessages в нужном месте.
Sleep(n) - приложение "заснет" на n миллисек.