Application.ProcessMessages

Oto mój problem :-)

Mam taka pętelke w procedurze:

repeat
Application.ProcessMessages;
if not Aborted then //

Po pierwsze to po co aż dwa If?

repeat
Application.ProcessMessages;
if not Aborted then //

SleepEx

moze lepiej utworzyc nowy wątek?

Weź Timera, albo stwórz osobny wątek.

Zamiast sleep możesz użyć czegoś takiego - ms-czas w milisekundach

procedure Delay(ms: longint);
var
Czas: LongInt;
begin
Czas:= GetTickCount+ms;
while GetTickCount