TMenuItem, automatisches & in Caption (trotz AutoHotkeys:=maManual)

[arc]

Ich habe bereits diesen Artikel entdeckt und umgesetzt http://delphi.about.com/od/delphitip...-menu-item.htm

Leider bleibt mein Problem bestehen. Worum geht es?


Neben einem Eingabefeld soll eine Liste möglicher Vorgaben aus einem PopUp Menü wählbar sein. Bereits getätigte Eingaben speicher ich jeweils als neues Menüelement.

Speichern eines neuen Eintrags:

Delphi-Quellcode:

procedure TForm1.AddToCompanyList(s:string);
var MI:TMenuItem;
begin
  MI:=TMenuItem.Create(PopupMenu_Company_List);
  with MI do
  begin
    AutoHotkeys:=maManual; // prevents automatic & to be added...
    Caption:=s;
    OnClick:=CompanyListClick;
  end;
  PopupMenu_Company_List.Items.Add(MI);
end;

Wenn ich im Debugger in der letzten Zeile MI.Caption anschaue, ist dort kein & vorhanden. So wie es eigentlich sein soll.

Zuweisung:

Delphi-Quellcode:

procedure TForm1.CompanyListClick(Sender:TObject);
var MI:TMenuItem;
begin
  MI:=Sender as TMenuItem;
  // ggf StripHotKey nutzen
  Edit_Company.Text:=MI.Caption;
end;

Hier taucht aber urplötzlich ein & auf, im PopupMenu_Company_List ist AutoHotkeys ebenfalls auf maManual gesetzt. Ich könnte hier sicherlich StripHotKey nehmen, ich möchte jedoch wissen woher das & kommt.

Vielen Dank schonmal!