in einer schleife eine OnClick-prozedur zuweisen

[Lefko]

Oh man, was mach ich denn da...

Ich will diese ganzen Schritte:

Delphi-Quellcode:

Panel1.OnClick := Panel1click;
Panel2.OnClick := Panel2click;
Panel3.OnClick := Panel3click;
Panel4.OnClick := Panel4click;
Panel5.OnClick := Panel5click;
Panel6.OnClick := Panel6click;
Panel7.OnClick := Panel7click;

in einer Schleife machen:

Delphi-Quellcode:

for i := 1 to 7 do
 begin
  TPanel('Panel' + IntToStr(i)).OnClick := ???   //hier weiss ich nicht, was da hin soll!
 end;

Soll ich da ('Panel' + IntToStr(i) + click) hinschreiben oder wie kann ich den Namen einer Procedure mit einer Variable drin ordentlich angeben?!

MfG Lefko

PS ansonsten weiss ich nicht, wie ich das noch erklären soll....