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