ShowModal mit Programmablauf und selbst schließen?

[WM_CLOSE]

versuch es so

Delphi-Quellcode:

type
  TMyForm=class(TForm)
  private
    ...
  public
    ...
    procedure ShowModal; override;
  end;