Альтернатива sleep для треда

[bulldog5293]

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

var
FPos:integer;
h:integer;
begin
FPos := 0;
 while FPos < h do
 end

но не какой приостановки не получается и форма всё равно виснит. Есть ли ещё альтернативы слипу что бы форма не висла?
P.S. Сорри всё таки не решил

[mihali4]

while FPos < h do
Application.ProcessMessages;

[bulldog5293]

Не, не то мне в поток нада

[Пепел Феникса]

чем слип не годится?
покажите весь код потока.
у меня такое чувство что вы вешаете слип в синхрониз метод.

[_Engine_]

Он уже написал, что у него по другой причине проблема, а так, да, ProcessMessages тут не катят.

[bulldog5293]

Вот часть кода из потока

function SetTimeOutJS(Str: String): Integer;
var
  I: Integer;
  S: String;
begin
  S := '")'',';
  I := Pos(S, Str);
  if I > 0 then
  begin
    S := Copy(Str, I + Length(S), Length(Str));
    I := Pos(')', S);
    if I > 0 then
    begin
      S := Trim(Copy(S, 1, I - 1));
      I := StrToIntDef(S, -1);
      if I > 0 then
        Result := I
      else
        Result := 0;
    end;
  end;
end;

begin
      Otvet1 := HTTP_BOT.get('http://' + Сайт);
      h := SetTimeOutJS(Otvet1);
      Sleep(h);//в этот момент вешается форма на h секунд
      HTTP_BOT.get('http://' + Сайт + Ur);
end;

[_Engine_]

И зачем это?

[bulldog5293]

всмысли зачем? Мне приостановку на определённое время нужно делать

[_Engine_]

Так недостаточно информации... Покажи, как синхронизация с формой производится? Вся приведенная процедура обернута методом Synhronize?

[Пепел Феникса]

что это за функция?
где код потока?
(или это он и был с извратом?)