TThread gibt beim Beenden Speicherleck

[DieDolly]

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?