Delphi-Quellcode:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if not (fsModal in FormState) then
Action := caFree;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FForm1 := nil;
end;
Modal angezeigte Fenster sollte man auf keinen Fall mit caFree freigeben.
Das führt zu willkürlichen Schutzverletzungen in der Methode ShowModal.
In diesem Fall nach ShowModal das Formular selbst freigeben.