动态生成的panel如何写事件代码

procedure TForm1.Button2Click(Sender: TObject);
var
  pan: array of array of Tpanel;
  x,y,m,n: integer;
begin
  m := strtoint(edit1.Text); //行数
  n := strtoint(edit2.Text); //列数
  SetLength(pan,m);
  for x := 0 to m-1 do
  begin
  SetLength(pan[x],n);
  for y := 0 to n-1 do
  begin
  pan[x,y] := Tpanel.Create(self);
  pan[x,y].parent := Panel2;
  pan[x,y].Left := y*30;
  pan[x,y].Top := x*30;
  pan[x,y].Height := 30;
  pan[x,y].Width := 30;
  pan[x,y].Caption := inttostr(x) + '_' + inttostr(y);
  pan[x,y].Color := clskyblue;
  // pan[x,y].OnClick := panClick;

  end;
  end;

end;

比如让被选中的panel变成红色 还有就是用鼠标拖可以选择多个panel让其全变成红色

有什么问题

动态生成的panel的事件代码怎么写 比如用鼠标拖动选中的panel变成红色 

追加一个问题用完之后在哪释放panel 因为我如果先生成是5*5的话 再想生成3*3的只会把原来生成的覆盖一部分

自己UP下 求帮助！！！！！！

人都哪去了~~~ 大虾们 帮帮手啊！！！！