Programm anhalten und auf Taste/Button warten

[APP]

Hallo,

ich schreibe gerade an ein "DebugWindow", das bestimmte Meldungen, die ich im Hauptprogramm einfüge in einem separaten Fenster anzeigt.

z.B. DebugM.ShowDebugMsg := 'Test ' + inttostr(i); Nun möchte ich aber eine Art "Einzelschrittmodus" implementieren, d.h. erst nachdem der Weiter-Knopf gedrückt wurde soll das Hauptprogramm weitermachen.

• Zuerst dachte ich daran das DebugWindow modal anzuzeigen,
  das hat aber den Nachteil das das Fenster bis zum nächsten
  Aufruf verschwindet, das möcht ich aber nicht!
  (Ich habe auch versucht zur Laufzeit ein 2. Fenster zu erzeugen und
  als Parent ein Panel auf dem DebugWindow anzugeben und dieses Fenster
  Modal zu zeigen, leider funktionierte das Ganze nicht wie erwartet)
  
  
• Dann versuchte ich es mit einer Endlosschleife:

Delphi-Quellcode:

PROCEDURE TfDebugMemo.WaitForButton;
BEGIN
  REPEAT
    Application.ProcessMessages;
  UNTIL (FNext);
END;
// ----------------------------
PROCEDURE TfDebugMemo.SpeedButton1Click(Sender: TObject);
BEGIN
  FNext := True;
END;

Das hat den Nachteil, dass die Prozessorauslastung auf 100% geht und nicht sehr elegant ist.

Hat jemand einen bessere Lösung für mich?
Vielleicht doch irgend etwas mit Modal, das gefällt mir sehr gut