Unerklärliche Fehlermeldung bei manueller Formerzeugung

[Leuselator]

Und wie isses mit:

Delphi-Quellcode:

Unit DasProblem
type 
  TForm2 = class(TForm)
  end;

  TForm1 = class(TForm)
    FSubForm : TForm2
  protected
    procedure OnIrgendWasClick(Sender : TObject);
  public
  Destructor Destroy; override;
  end;

var Form1 : TForm1;
implementation

procedure TForm1.OnIrgendwasKlick(Sender : TObject);
begin
  if not Assigned(FSubForm) then FSubForm := TForm2.Create;
  FSubForm.ShowModal;
end;

Destructor TForm1.Destroy;
begin
  if Assigned(FSubForm) then FreeAndNil(FSubForm);
end;

?