die proceduren die aufgerufen werden sollen müssen schon existieren und dann
Delphi-Quellcode:
procedure irgendwas.formcreate(Sender: TObject);
begin
componente.onClick = procedure1;
end;
procedure irgendwas.procedure1(Sender: TObject);
begin
//what to do
end;
für dein Beispiel
shapex.onmousedown := shape1mousedown;