Also wenn mich nicht alles täuscht, dann kannst du doch beim FormCreate mit einer for..to Schleife den Panels eine Prozedur zuweisen, und dazu erstellst du dann halt deine gewünschte.
z.B. so:
Delphi-Quellcode:
for i := 1 to 52 do
F(orm4.FindComponent('Panel' + IntToStr(i)) as TPanel).OnClick := DeineProzedur;
Hoffe ich verzapf da nun keinen Müll
Und das ist das was du möchtest!