Idee zu WaitFor:
ich setze von Extern ein Flag das sagt, dass das Sleep unterbrochen werden kann. Das werte ich dann hier aus
Delphi-Quellcode:
i := 0;
while i < 5000 do
begin
Inc(i);
Sleep(1);
if FlagXYZ then
Break;
end;
Dann WaitFor und Free. Wäre das eine Möglichkeit?