Komponenten mit onClick ausstatten...

[Treffnix]

Dazu legst du eine Private Variable vom Typ TNotifyEvent ( oder einem anderen ) an und ein published Property vom selben Typ.
Und dann musst du dieses Event nur noch an den Stellen im Code, an denen es auftreten soll, abfeuern. Vorher noch prüfen, ob dem Event eine Prozedur zugewiesen wurde.

Delphi-Quellcode:

  ...
  anyqry.Open; //Irgendwas machen
  If Assigned( FOnQueryOpen ) Then  //Wenn dem Event etwas zugewiesen ist
    FOnQueryOpen( Self );           //dann starte die externe Prozedur
  ...