Зависание формы. Решить проблему.

[webber9989]

procedure TForm1.sButton1Click(Sender: TObject);
var
//переменные
begin

//тело

  IdHTTP1.AllowCookies := True;
  IdHTTP1.HandleRedirects := True;


for fori:= 0 to yaacc.Count-1 do

begin

//тело
//разгадываем каптчу
sleep(6000); //остановимся и ждем пока каптча будет готова

//дальше идет post запрос... 

if pos('302', Idhttp1.response.responsetext) > 0 then
begin
//тело
end;

if pos('200', Idhttp1.response.responsetext) > 0 then begin

try
 if param = '' then
   begin
//тело
   end
   else
   begin
//тело
   end;

Except

//тело

end;

Append();
Append();

end;


end;

   CloseFile();
    CloseFile();

end;

Вот есть код, не ругайте что криво написан, привык так, знаю что плохо((

Не могу разобраться куда вставить Application.ProcessMessages; что бы форма не висла при выполнении программы..
Я почти не работал с Application.ProcessMessages;, 1 раз было, когда данные в файл записывал..
Я куда только не ставил, ничего не помогает...

Помогите плиз разобраться

[mss]

куда вставить Application.ProcessMessages

Никуда.
Все уже "стоит", достаточно шмякнуть на форму компонент IdAntifreeze.

[Dеlphi]

Application.ProcessMessages нужно вставить в тело цикла, или использовать поток

[chertovich]

Сообщение от Dеlphi

Application.ProcessMessages нужно вставить в тело цикла, или использовать поток

Поскольку у него в коде Sleep(6000), ProcessMessages не поможет)

[Anfall]

Кроме как через поток никак.

[Serge_Bliznykov]

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

Поскольку у него в коде Sleep(6000), ProcessMessages не поможет)

угу. +1

это ожидание готовой капчи надо как-то интеллектуальнее сделать, ну, что-то в цикле проверять, готово/не готово..
ну, или на крайний случай, замутить как-то так:

for i:=1 to 60 do begin
   Sleep(100);
   Application.ProcessMessages;
end;

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

достаточно шмякнуть на форму компонент IdAntifreeze.

+1
Как утверждают знающие коллеги, это тоже не помешает.

[webber9989]

Спасибо за помощь.

IdAntifreeze не помог особо, сделал через поток.
Ещё раз всем большое спасибо.