Problemas con el array

[CottonMouth]

Hola! tengo un problemita quiero hacer un array de botones y asignarles un nombre al evento click de cada uno para despues crear en cada evento unformulario nuevo.Mientras lo voy escribiendo me reconoce cada nombre de los eventos a la hora llamar al procedimiento pero cuando lo ejecuto me aparece una venta marcandome un error que dice:"Access violation at address ...in module "Project1.exe" .Write of address...."Que estoy haciendo mal?

For j:=1 to 6 do
      begin
      MisBotonesPrincipales[j]:=TButton.Create(Self);//Creo el boton
      MisBotonesPrincipales[1].OnClick:= MiBotonSociosClick; 
      MisBotonesPrincipales[2].OnClick:= MiBotonLibrosClick;
      MisBotonesPrincipales[3].OnClick:= MiBotonPrestamosClick;
      MisBotonesPrincipales[4].OnClick:= MiBotonDevolucionesClick;
      MisBotonesPrincipales[5].OnClick:= MiBotonHistoricoClick;
      MisBotonesPrincipales[6].OnClick:= MiBotonPendientesClick;
end;
procedure TForm1.MiBotonSociosClick(Sender:TObject);
begin
end;

Luly

[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

[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