Pasar de Menu a TreeView1

[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.

[ASAPLTDA]

http://neftali.clubdelphi.com/?p=156

[sonjeux]

Gracias, ya vi su ejemplo, pero tenia curiosidad de como se hace de la forma que quiero hacerlo, o sea al momento de leer un menu, agregar los items del submenu al menu que corresponde, que fue creado anteriormente :P. Si alguien sabe me de una mano , gracias.