Foros Club Delphi - Problemas con el array

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?

Código:

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:p

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;

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;