Problem mit Procedure aus Unit

[Steve]

Delphi-Quellcode:

type
  TMyForm = CLASS(TForm)  // <<-- Da war fälschlicheriwese ein Seminkolon
  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.CreateNew(MainFrm);  // <<-- CreteNew statt Create
  {..}
end; 

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

Bei mir funzt das so nu

Stephan

edit: gekürzt