Auf schließen von Fenster warten ?

[moelski]

Moin !

Ich habe eine Procedure in der ich in einem MDI Fenster einen Text öffnen muss weil der User dort etwas anpassen muss / soll.

Nun habe ich nach einer Möglichkeit gesucht die Prozedur so lange zu pausieren bis das Fenster geschlossen wird.
Gelöst habe ich das derzeit so:

Delphi-Quellcode:

  while Proj.TextEditForm.StopAction = True do begin
    Sleep(10);
    Application.ProcessMessages;
  end;

StopAction ist dabei in der Formularunit definiert:

Delphi-Quellcode:

type
  TTextEditForm = class(TForm)
    Memo: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    StopAction : Boolean;
  end;

Mir scheint diese Variante allerdings nicht so gelungen (wenngleich sie funktioniert).

Hat jemand noch eine elegantere Variante?