Proceduren von untergeordneten Objekten

[Ginko]

Ich habe das ganze jetzt mal vereinfacht aber es klappt auch so nicht.
Wo genau muss ich die Ereignisbehandlungsroutine hinzufügen?

Hier der Quelltext:

Delphi-Quellcode:

unit Unit2;

interface

uses
  Classes, SysUtils, Variants, Math, Grids, Forms,  Dialogs, Controls,
  StdCtrls, Windows, Messages, Graphics;

type
  TMyObjekt2 = class(TEdit)
  public
    constructor Create(AOwner: TComponent); override;
  end;


type
  TMyOberObjekt = class
  public
    MyEdit : TMyObjekt2;
    constructor Create(ZuBenutzendesFormular : TWinControl);
    destructor Destroy;  override;
    procedure Change(Sender: TObject);
  end;


implementation


//MyEdit Methoden
constructor TMyObjekt2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Parent := AOwner as TWinControl;
  Left := 400;
  Width := 50;
  AutoSize := false;
  Height := 32;
  Font.Size := 16;
  Text := 'MyObjekt2';
end;



//OberObjekt Metoden:
constructor TMyOberObjekt.Create(ZuBenutzendesFormular : TWinControl);
begin
  inherited Create;
  MyEdit := TMyObjekt2.Create(ZuBenutzendesFormular);
  MyEdit.Width := 100;
  MyEdit.OnChange := Change; ////////////////////////////////????
end;

destructor TMyOberObjekt.destroy;
begin
  MyEdit.Free;
  Inherited destroy;
end;

procedure TMyOberObjekt.Change(Sender: TObject);
begin
   ShowMessage('klappt');
end;

end.

EDIT:
Ah hat sich erledigt ich musste die Change Methode von MyObjekt2 rausholen damit hatte ich mir scheinbar alles überschrieben.
So wie es oben steht klappt es jetzt.
Ist das mit der Ereignisbehandlungsroutine dann so richtig ? Danke euch!