in einer schleife eine OnClick-prozedur zuweisen

[Lefko]

Hallo Freunde ,

ich hab ein Problem:

Delphi-Quellcode:

procedure Tform1.ResetPanels;
var i : byte;
begin
for i := 1 to 9 do
 begin
  TPanel('Panel' + IntToStr(i)).BevelInner := bvRaised;
  TPanel('Panel' + IntToStr(i)).Font.Color := clblack;
  TPanel('Panel' + IntToStr(i)).OnClick := ??????????;
 end;
end;

Wie kann ich diesem Panel seine OnClick-prozedur zuweisen?

Also bei Panel1
Panel1.OnClick := Panel1click; MfG Lefko.