[__cadetill]

Por ejemplo algo así:

  MiCompo := TMiCompo.Create(el que sea);
  MiCompo.Parent := el que sea;
  MiCompo.Propiedad := ....
  ........
  MiCompo.OnClick := MiProcedureDelOnClick(Sender);