Auf Task warten ohne zu bremsen

[lxo]

Hallo,

ich hab mir eine Klasse geschrieben in der ich einen Task(Thread) starte und dann dort warte bis dieser fertig ist.
Hintergrund ist der, ich möchte ein InfoForm anzeigen während der Aktion damit der User sieht das es etwas passiert und das Programm sich nicht aufgehängt hat.

Aktuelle mache ich das so:

Delphi-Quellcode:

      lInfoFormTask := TInfoFormTask.Create( nil,
                                             TNotifyEvent( nil),
                                             lProc,
                                             TThreadPool.Default,
                                             nil);

      lTask := lInfoFormTask.Start as IInfoFormTask;
      TSpinWait.SpinUntil( function: Boolean
                           begin
                             //OutputDebugString( PWideChar(DateTimeToStr( Now)));
                             Application.ProcessMessages;
                             Result := lTask.IsComplete;
                           end);
//      while not ( lTask.IsComplete) do
//      begin
//        //OutputDebugString( PWideChar(DateTimeToStr( Now)));
//        TThread.Sleep( 1);
//        Application.ProcessMessages;
//      end;

Entweder mit dem SpinWait oder der whileschleife warte ich bis der Task abgeschlossen ist.
Funktioniert auch an sich, aber die Aktion dauert dadurch deutlich länger als sie eigentlich brauch.

Wenn ich nun die Maus auf der Titelleiste des InfoForms gedrückt halte.
Geht es aufeinmal deutlich schneller.
Mit Hilfe von "OutputDebugString( PWideChar(DateTimeToStr( Now)))" konnte ich dann auch erkennen das die Anwendung gar nicht mehr in meiner "Warteschleife" läuft.

Meine Frage ist jetzt was macht Delphi/Windows beim halten des Mausklicks auf der Titelleiste, dass mein Task ungebremst weiterlaufen kann.
Oder was habe ich für eine alternative mit meiner "Warteschleife"? Ich möchte einfach warten bis der Task abgeschlossen ist und dann soll es weiter gehen.