Recorrer un menu

[Ubed]

Hola, vereis yo tengo un menu que quiero recorrer para coger sus Padres e Hijos y meterlos en un Tree, he hecho esto pero no se porque no me deja ejecutarlo, me pueden decir que esta mal??

me sale un error en la parte que esta en rojo, dice algo asi komo k espera un "[" y encuentra un "."

Que puede pasar??

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
i,j: integer;
begin
i:=0;
JvCheckTreeView1.Items.Clear;
  while i<=mainmenu1.Items.Count do
    begin
     j:=0;
      while j<=mainmenu1.Items[i].Items.Count do
        begin
           JvCheckTreeView1.Items.Addchild(JvCheckTreeView1.selected, mainmenu1.Items[i].items[j].caption);
            i:=i+1;
        end;
       i:=i+1;
    end;
end;