Problem mit Procedure aus Unit

[Steve]

Delphi-Quellcode:

interface

{...}

type
  TMyForm = CLASS(TForm);
  PRIVATE
    procedure MDIChildClose(Sender: TObject; var Action: TCloseAction);
  END;

  procedure NeueForm;

var
 Nummer: Integer = 0;


implementation
uses unit1;

var
 Form: TMyForm;

procedure NeueForm;
begin
  Inc(Nummer);

  Form := TMyForm.Create(MainFrm);
  with Form do begin
    {...}
    OnClose := MDIChildClose;
  end;
end;

procedure TMyForm.MDIChildClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

So sollte es hinhauen [nicht getestet]

Gruß
Stephan

[edit] Code bissl gekürzt[/edit]