Erzeugtes object Ereignisse und Eigenschaften

[Nine9]

Guten Tag Community ich bin recht neu in der Welt von Delphi und habe ein kleines Problem.

Ich möchte durch ein erzeugtes Objekt mit gezeichneten Rechtecken eine Property hinzufügen wie z.b den Namen, eine Caption & ein Ereignis wie MouseDown und Mousemove
Leider finde ich so schnell keine Hilfe daher hoffe ich hier auf jemand zu treffen der sich dort etwas mehr auskennt und mir helfen kann.

hier mein Code :

unit Unit4;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;

type
TForm4 = class(TForm)
Edit1 : TEdit ;
Edit2 : TEdit ;
Edit3 : TEdit ;
Button1: TButton ;
Image1 : TImage ;
Label1: TLabel;
procedure Button1Click(Sender: TObject);



private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

TAuftrag = class(Tobject)



private
FName : string;
Top, Height : integer;
Fcaption : string;


public
Left , Width : integer;
procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);



end;

var
Form4 : TForm4;
Auftrag : Tauftrag;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin

Auftrag := Tauftrag.create;
Auftrag.Left := strtoint(edit1.Text);
Auftrag.Width := strtoint(edit2.Text);
Auftrag.Top := 20;
Auftrag.Height := 40;
Auftrag.FName := edit1.Text;
OnMouseDown := Auftrag.MouseDown;

image1.Canvas.Pen.Color := clblack;
Image1.Canvas.MoveTo(Auftrag.Left , Auftrag.Top) ;
image1.Canvas.LineTo(Auftrag.Left , auftrag.Height) ;
image1.Canvas.LineTo(auftrag.Width , auftrag.Height) ;
image1.Canvas.LineTo(auftrag.Width , auftrag.Top) ;
image1.Canvas.LineTo(auftrag.Left , auftrag.Top) ;

end;

procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

ShowMessage('Test');

end;

end.


___________________________________

Leider mag er meine Mousedown Prozedur nicht