1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var
  aItem, subItem, subSubItem : TMenuItem;
begin
  aItem := TMenuItem.Create(self);
  aItem.Caption := 'Eintrag 1';
  MainMenu1.Items.Add(aItem);

  subItem := TMenuItem.Create(self);
  subItem.Caption := 'Eintrag 1.1';
  aItem.Add(subItem);

  subSubItem := TMenuItem.Create(self);
  subSubItem.Caption := 'Eintrag 1.1.1';
  subItem.Add(subSubItem);

  subItem := TMenuItem.Create(self);
  subItem.Caption := 'Eintrag 1.2';
  aItem.Add(subItem);

  subItem := TMenuItem.Create(self);
  subItem.Caption := 'Eintrag 1.3';
  aItem.Add(subItem);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

<menu>
  <item>
    <caption>123</caption>
    <icon>c:\1.bmp</icon>
  </item>
  <item>
    <caption>Eintrag mit Untermenü</caption>
    <icon>c:\2.bmp</icon>
    <items>
      <item>
         <caption>123</caption>
         <icon>c:\4.bmp</icon>
      </item>
      <item>
        <caption>123</caption>
        <icon>c:\5.bmp</icon>
      </item>
    </items>
  </item>
  <item>
    <caption>ghj</caption>
    <icon>c:\3.bmp</icon>
  </item>
</menu>                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

[RootItems]
RootItemsCount = 2
Item1 = Link1
Item2 = Link2

[Link1]
ItemsCount = 2
Item1 = Link1.1
Item2 = Link1.2 

[Link1.1]
ItemsCount = 2
Item1 = Link1.1.1
Item2 = Link1.1.2 
Item1Pfad = d:\hjashk.jpg
Item2Pfad = d:\kpk45.jpg
 
[Link1.2]
ItemsCount = 3
Item1 = Link1.2.1
Item2 = Link1.2.2 
Item3 = Link1.2.3 
Item1Pfad = d:\aaa.jpg
Item2Pfad = d:\xxxx.jpg 
Item3Pfad = d:\yyyy.jpg                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

var
  XML : TJvSimpleXML;
  n : integer;
  name : String;
  icon : String;
begin
  XML := TJvSimpleXML.Create(nil);
  try
    XML.LoadFromFile('C:\MyMenu.xml');
    for n := 0 to XML.Root.Items.Count - 1 do
        with XML.Root.Items.Item[n].Items do
        begin
          // Die daten für jedes menü item im Hauptmenü
          name := Value('Name');
          icon := Value('Icon');
          if ItemNamed['items'] <> nil then
             with ItemNamed['items'].Items do
             begin
               // es gibt unterpunkte, mach irgendwas damit
             end;         
        end;
  finally
    XML.Free;
  end;
end;