[ryderx34]

Нужен массив кнопок:

Код:

var
  MyButtons: array of TButton;

Создаёшь кнопки так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  SetLength(MyButtons, StrToInt(Edit1.Text)); // задаёшь разиер массива (кол-во кнопок)
  for I := 0 to Length(MyButtons) - 1 do 
  begin  // в цикле создаёшь кнопки и сохраняешь указатели на них в массиве
    MyButtons[i] := TButton.Create(Form1);
    // здесь делаешь с созданной кнопкой что нужно
    MyButtons[i].Parent := Form1;
    // и т. д.
  end;
end;

Потом работаешь с ними так:

Код:

MyButtons[0].Caption := 'My button 1';
MyButtons[1].Caption := 'My button 2';