Form richtig destroyen ?

[Blup]

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.