[gabrielkc]

Código Delphi [-]
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;
end;

poco óptimo pero debe de funcionar