var sarr: array [0 .. 2] of tedit; // 动态定义组件数组 But: array of TButton; // 静态定义组件数组 //动态创建控件:  SetLength(But, 3); // 设置控件数量  for i := 0 to High(But) - 1 do  begin    But[i] := TButton.Create(Form1);    But[i].Parent := Form1; // 设置父    But[i].Name := ‘But‘ + inttostr(i);    But[i].OnClick := 点击按钮；

    But[i].Top := i * 30 + 10  end;// 响应动态创建的出来控件的事件 public    { Public declarations }procedure 点击按钮(Sender: TObject);//procedure TForm1.点击按钮(Sender: TObject);begin  if Sender is TButton then  begin    if (Sender as TButton).Name = ‘But0‘ then      ShowMessage(‘你点击了But0‘);  end;end;// 释放控件procedure TForm1.Button2Click(Sender: TObject);var  i: Integer;begin  for i := 0 to High(But) do    But[i].Free;end;