Wo werden die Objecte denn Kreiert/Platziert?
Da kannst doch auch zur Laufzeit die OnClick events und eine eindeutige Identifizierung (z.B. im tag) zuweisen.
Dann machst du im OnClick sowas wie
Delphi-Quellcode:
if (sender as TComponent).tag = PusteKuchen then begin
add(Pustekuchen);
end;
und feddich;
Oder hab ich irgendwie total verpennt worums hier geht?