[Delphi] Dilemma....

Ciao a tutti,
per comiciare tks solo xk stai leggendo il mio prob.
Il mio Dubbio con la D maiuscola è:
è possibile assegnare una procedura ad un evento di un oggetto creato dal codice??
mi speiego meglio:

type
TVettoreTShape = array[1..10,1..5] of TShape;

var
VetShape : TVettoreTShape;

procedure TForm1.CreateForm(sender :Tobject);
var i,j:integer;
begin
for i := 1 to 10 do
for j := 1 to 5 do begin
VetShape[i,j] := TShape.Create(Self);
With VetShape[i,j] do Begin
parent := self;
name:= 'shape'+inttostr(i)+'_'+inttostr(j);
end;
end;
end;


capito cosa intendo??? devo applicare a quei shape un evento onMouseDown in modo che quando li clicco facciano qualcosa... ma non so come fare... tky
P.

// uhm...?! xD