递归调用方面的
递归调用生成动态按钮，像一个树一样，比如：
a
--aa1
--aa2
b
--bb1
--bb2
生成按钮的排布为：a aa1 aa2
b bb1 bb2
用递归调用生成

[解决办法]
procedure CreateNextButton(row,col:integer);
var
Button: TButton;
begin

//这里是创建按钮的代码
Button := TButton.create(self);
...
//
Button.top := row*20; //这里加个固定值的话就是按值间隔
Button.Left := col*50;

inc(row);
inc(col);
if (row> 2) and (col> 3) then exit;//设为2行3列

CreateNextButton(row,col);
end;
第一次调用是 CreateNextButton(0,0);

没环境调试,可能会有点小错误...