Form zur Laufzeit schließen

[LoL]

Folgendes:

Ich erzeuge ein Form zur Laufzeit:

Delphi-Quellcode:

frm_GraphEdit := TForm.Create(nil);
  with frm_GraphEdit do
    begin
      name := 'frm_GraphEdit';
      Position := poScreenCenter;
      BorderStyle := bsDialog;
      Width := 200;
      OnDestroy := frm_GraphEditClose;
    end;
frm_GraphEdit.ShowModal;

mit einem button drauf:

Delphi-Quellcode:

btbtn_abort := TBitBtn.Create(frm_GraphEdit);
  With btbtn_abort do
    begin
      Parent := frm_GraphEdit;
      Name := 'btbtn_abort';
      OnClick := CloseFrm_GraphEdit;
    end;

Folgendes Ereignis wird ausgelöst wenn man auf den Botton klickt:

Delphi-Quellcode:

procedure TFrm_main.CloseFrm_GraphEdit(Sender : TObject);
begin
  frm_GraphEdit.Destroy;
end;
....
procedure TFrm_main.frm_GraphEditClose(Sender : TObject);
begin
  frm_GraphEdit := nil;
end;

Wenn ich das Form mit ShowModal aufrufe und schließen möchte bekomme ich folgende Exception:
"Invalid Variant Operation"
Wenn ich aber das Form mit Show aufrufe nicht Woran kann das liegen?