代码生成控件 如和写事件？

Question

var
   bun array[10][10] of Tbutton ;
begin
   for i := 1 to 10 do  
   begin
      for j := 1 to 9 do
      begin
         bun[i][j] := Tbutton.create;
         bun[i][j].perant := form1;
         tbutton(bun[i][j]).click := ******;    
      end;
   end;
end;
procedure ******(sender : Tobject);
begin
*
*
*
end;代码这样写事件可以触发 但是假设我想通过单击bun[1][3]改变它的left属性处理函数应该怎么写，需要添加参数吗？ 如果要加参数函数应该怎么写如和调用？

Answer 1

procedure ******(sender : Tobject);
begin
(sender as TButton).Left:=1;
end;