ShowModal wird nicht beendet

[himitsu]

Im Prinzip mache ich dieses (gekürzert Code):

Delphi-Quellcode:

Procedure TInsightForm.FormClose(Sender: TObject; Var Action: TCloseAction);
  Begin
    Free;
    Action := caNone;
  End;

InsightForm.ShowModal;

Tja, die Form verschwindet, aber der ShowModal-Aufruf wird nicht beendet und die ganze VCL blockiert.


Wieso wird dieser Aufruf denn nicht beendet, obwohl dessen Form schon verschwunden ist?


PS: Action ist absichtlich caNone, da sonst ja versucht würde nach dieser Funktion noch auf die Form (welche ja weg ist) zuzugreifen.