zdarzenia w dynamicznie ładowanych komponentach

Jak obsluzyc zdarzenia w komponentach ladowanych dynamicznie?

var
Komponent: TButton;
begin
Komponent := TButton.Create;
with Komponent do
begin

• jakieś tam ustawienia właściowści
  OnClick := MojaProcedura;*gdzieś wcześniej deklarujesz procedurę takiego samego typu co zdarzenie OnClick
  end;--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

(...)
var
Form1: TForm1;
DynamicznyBaton:TButton;

implementation

{$R *.DFM}

procedure TForm1.KlikDynamicznegoBatona(Sender: TObject);
begin
ShowMessage('Dziala !!!!');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DynamicznyBaton:=TButton.Create(parent);
with DynamicznyBaton do
begin
parent:=Form1;
left:=10;
top:=10;
height:=25;
width:=120;
caption:='Dynamiczny Baton';
OnClick:=KlikDynamicznegoBatona;
end;
end;
(...)

{hello}

thxxx