动态生成的Panel，如何编写他的OnClick事件？？？

[boneheart]

Panel是动态生成的。请问怎么编写和响应它的OnClick事件。

Panel是这样生成的：
procedure TFormSmallOneSet.FormCreate(Sender: TObject);
var
x,y:Integer;
begin
for x:=1 to 20 do
begin
for y:= 1 to 20 do
begin
PicCell[x,y]:=TPanel.Create(FormSmallOneSet);
// PicCell[x,y].Show;
PicCell[x,y].Parent := Self;
PicCell[x,y].Width := 32;
PicCell[x,y].Height := 24;
PicCell[x,y].Left := (x-1)*32+1;
PicCell[x,y].Top := 35+(y-1)*24+1;
PicCell[x,y].Color := $0080FFFF;
end;
end;
end;

有400个动态生成的Panel,怎么响应每个的OnClick事件。

[FrameSniper]

自己定义个过程
procedure TFormSmallOneSet.MyPanelClick(Sender:TObject);
begin
//你需要的操作
end;

然后在每次将动态生成的Panel的属性设置完后，加上这句
PicCell[X,Y].OnClick:=MyPanelClick;