Hallo derseitzer,
eigentlich hast Du die Lösung selbst schon erarbeitet.
Wenn Du in Deiner Prozedur noch ergänzt:
C3D.OnClick := Klick;
Als nächstes erstellst Du die Prozedur Klick:
Delphi-Quellcode:
procedure TF_Main.Klick(Sender:TObject);
begin
showmessage('Klick');
end;
und deklarierst sie im Interface-Abschnitt (beispielsweise im Private-Abschnitt)
VG
ZYL