[gabrielkc]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var j:byte;
begin
 For j:=1 to 6 do
  begin
   MisBotonesPrincipales[j]:=TButton.Create(Self);//Creo el boton
   case j of
    1:MisBotonesPrincipales[j].OnClick:= MiBotonSociosClick;
    2:MisBotonesPrincipales[j].OnClick:= MiBotonLibrosClick;
    3:MisBotonesPrincipales[j].OnClick:= MiBotonPrestamosClick;
    4:MisBotonesPrincipales[j].OnClick:= MiBotonDevolucionesClick;
    5:MisBotonesPrincipales[j].OnClick:= MiBotonHistoricoClick;
    6:MisBotonesPrincipales[j].OnClick:= MiBotonPendientesClick;
   end;
   misbotonesprincipales[j].Parent:=Self;
   misbotonesprincipales[j].Top:=10;
   misbotonesprincipales[j].Left:=75*j;
   misbotonesprincipales[j].Show
  end;
end;

el codigo completo