Inicializar array dinamico

[senpiterno]

Hola amigos

Tengo las siguientes estructuras:

Código Delphi [-]
 
  Type
     Columnas=Record
       Columna:TcxTreeListColumn;
       Indice:Integer
  End;
  
Type
   ArbolComponetes=Record
     ComponentePadre:TcxTreeList;
     Cols:Array Of Columnas
  End;

Despues declaro una variable con el ultimo tipo

Código Delphi [-]
 
  Componentes:Array Of ArbolComponetes;

Como la variable declarada es un array dinamico, lo inicializo

Código Delphi [-]
 
SetLength(Componentes,IndiceComponente);
//Donde IndiceComponente es un entero de valor 1

Hasta aqui ningun problema, pero al inicializar el sub tipo (Cols) del tipo principal me da un error de violacion de acceso, el codigo que utilizo para inicilizar este sub tipo es el siguiente:

Código Delphi [-]
 
SetLength(Componentes[IndiceComponente].Cols,Col);
//Donde col es una varible de tipo entero de valor 6, es decir 6 columnas

¿ Que puede estar pasando ?

De antemano se agradece cualquier ayuda...