Problem mit Procedure aus Unit

[citybreaker]

Hallo,
ich hab neben der Unit1 (standart) noch eine weitere Unit
angelegt, inder ich eine procedure habe mit der ein MDIChild
erzeugt wird. Alerdings kann ich dem MdiChild keine OnClose
procedure geben. Habe folgenden Code.

Delphi-Quellcode:

unit unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

  procedure NeueForm;
  procedure MDIChildClose(Sender: TObject; var Action: TCloseAction);

var
 Form: TForm;
 Nummer: Integer = 0;


implementation
uses unit1;

procedure NeueForm;
begin
  Inc(Nummer);

  Form := TForm.Create(MainFrm);
  with Form do begin
    Caption := 'Dokument' + IntToStr(Nummer);
    FormStyle := fsMDIChild;
    Height := 450;
    Left := 8;
    Name :='Dokument' + IntToStr(Nummer);
    Top := 8;
    Width := 450;
    OnClose := MDIChildClose;
  end;
end;
procedure MDIChildClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

Nun kommt alerdings immer eine Fehlermeldung.

Zitat:

Inkompatible Typen: Methodenzeiger und reguläre procedure

Weiß net wie ich das andersmachen soll und was ich anders machen
soll.