[sonjeux]

Saludos, quiero pasar los datos de un menu a un TreeView, pero cuando quiero crear a un hijo, solo me crea en el primer item del menu, no se que puede ser?. mi codigo es algo asi.

Código Delphi [-]
   for i:=0 to Principal.Menu.Items.Count-1 do
      begin
         CheckTreeView1.Items.Add(nil, verificar(Principal.Menu.Items[i].Caption));
         for j:=0 to Principal.Menu.Items[i].Count-1 do
            begin
               CheckTreeView1.Items.AddChild(CheckTreeView1.Items.Item[i],'hola')
            end
      end

El menu solo tiene un sub nivel.

o sea algo asi

Archivo
-cerrar
-salir
empleado
-nuevo
-listar

Gracias por la ayuda.