Events von Kompo in Klasse weiterleiten

[TeTSuO]

Ich habe erst angefangen so richtig mit klassen zu arbeiten es macht auch richtig Spaß danach einen aufgeräumten Quelltext zu haben nur klappt das mit meinen Kenntnissen noch nicht so ganz. Bestimmt könnt ihr mir da aber weiterhelfen :-D

Hier meine Kompo:

Delphi-Quellcode:

Type
     TBox = class(TControl)
       ...
     end;

     TTextBox = class(TBox)
     private
       ....
       TextLbl: TLabel;
     public
       ....
       Property OnMouseMove;
       Property OnMouseUp;
       Property OnMouseDown;
       Property OnDblClick;
     end;

Ich möchte das die Events OnMouseMove, On... von dem Label an die Events von TTextBox geleitet werden damit ich diese im Program abfragen kann. weis aber nicht wo und wie ich das zuweisen soll. :(
Kann mir vieleicht eine nen tip geben

[Sprint]

Delphi-Quellcode:

type
  TTextBox = class(TBox)
  private
    TextLbl: TLabel;
    procedure SetMouseDown(Value: TMouseEvent);
    function GetMouseDown: TMouseEvent;
  published
    property OnMouseDown: TMouseEvent read GetMouseDown write SetMouseDown;
  end;

Delphi-Quellcode:

function TTextBox.GetMouseDown: TMouseEvent;
begin
  Result := TextLbl.OnMouseDown;
end;

procedure TTextBox.SetMouseDown(Value: TMouseEvent);
begin
  TextLbl.OnMouseDown := Value;
end;

Achtung: Nicht getestet!