PopUpMenü zur Laufzeit mit Event OnClick Problem

[Piro]

Habe das jetzt so gelöst. Mich aber die Lösung mit den Tags auch interessieren. Habe mal ein wenig rum gespielt aber keinen wirklichen Erfolg gehabt.

folgenden code habe ich verwendet

Delphi-Quellcode:

for i:=0 to 6 do
  begin
    TrayItems[i] := TMenuItem.Create(Self);
    TrayItems[i].Caption := content[i];
    TrayMenu.Items.Add(TrayItems[i]);
    Case i of
      0,6 : TrayItems[i].OnClick := TrayHandler;
    end;
  end;

  // Documents
  // Applications

  // Network
  for i:=0 to lv_net.Items.Count -1 do
  begin
    TrayItems[i] := TMenuItem.Create(Self);
    TrayItems[i].Caption := lv_net.Items[i].SubItems[0];
    TrayMenu.Items.Items[4].Add(TrayItems[i]);
    TrayItems[i].ImageIndex := 2;
    TrayItems[4].Items[i].OnClick := TrayHandler;
  end;

Gibt es auch irgendwie eine Möglichkeit bei Caption das Zeichen "&" vor dem MenuNamen weg zubekommen? Rückgabewert sieht z.B. so aus "&Open Menu"