[Bargest]

Попробуй так:

Код:

type Tbut = array[byte] of TButton;
var but:^Tbut;
...
getmem(but, sizeof(TButton)*N); //N - кол-во кнопок
for i:=0 to N-1 do
 begin
  but[i]:=TButton.Create;
  but[i].parent:=Form1;
  ...
 end;