MainMenu komplett durchlaufen

[dot]

Hallo Leute, wie kann man ein MainMenu komplett ( in der schleife ) durchlaufen ?
ich habe es so probiert aber sobald elemente im Untermenu vorhanden sind klappt es nicht mehr???

Delphi-Quellcode:

//Für Obere Menüitems  
for i := 0 to fMenu.Items.Count -1 do
    begin
      fMenu.Items[i].OnDrawItem := MenuDraw;
    end;

//Für Unteritems
  for i := 0 to fMenu.Items.Count -1 do begin
    for j:= 0 to fMenu.Items[i].Count -1 do
      if fMenu.Items[i].Items[j].caption = '-' then
        begin
          fMenu.Items[i].Items[j].OnDrawItem := SeparatorDrawItem;
          fMenu.Items[i].Items[j].OnMeasureitem := MeasureSeparator;
        end
      else
        begin
          fMenu.Items[i].Items[j].onDrawItem :=  MenuItemDrawItem;
          fMenu.Items[i].Items[j].OnMeasureitem := MenuItemMeasureItem;
        end;
    end;

danke für die hilfe gruss dot