zur laufzeit erstelltes objekt ansprechen

[blubber443]

moin, ich bin dabei einen leveleditor für mein spiel zu erstellen und hab da ein kleines problem:
ich weiß zwar wie man objekte erzeugt; aber nicht wie man später eine funktion (etwa wie onclick oder onmousedown) erzeugt.
es sollte etwa so aussehen:

Delphi-Quellcode:

var
shape: TShape;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
shape:=TShape.Create(Form1);
 With shape do
  begin
   Parent:=Form1;
   Left:=0;
   Top:=0;
   Width:=100;
   Height:=50;
   Shape:=stRoundRect;
   Name:='Shape1';
  end;
end;
...
procedure Shape1.onklick; //und hier weiß ich nicht wie es richtig heißt
begin
...
end;