PopUp Menu Kurzwahl

[Wilsandy]

Hallo zusammen,

ich erstelle ein Popup-Menu zur Laufzeit.

PopM := TPPopUp1.Create(Self);
PopM.Style := msXp;
PopupMenu := PopM;
Table3.First;
for I1 := 1 to Table3.RecordCount do begin
NewItem := TMenuItem.Create(Self);
NewItem.Caption := Table3.FieldByName('APL').AsString;
NewItem.Tag := I1;
NewItem.OnClick := TPPopUp1Click;
PopM.Items.Add(NewItem);
Table3.Next;
end;

Wenn ich das PopupMenu aufrufe sind die ersten Buchstaben (Kurzwahl) mit einem Strich unterlegt.
Wie bekomme ich den weg ??

Habe schon mehrfach im Forum danach gesucht, leider nichts gefunden.

Würde mich über eine Antwort freuen.

Gruß Sandy