Проблема с Caption PopUpMenu Item

[Comer_Jus]

Тема такая!

PopUpMenu несколько пунктов у всех OnDrawItem такой же как и у первого Item'а (тобишь один на всех)
вот собственно он:

Procedure TForm1.N1231DrawItem(Sender: TObject; ACanvas: TCanvas;ARect: TRect; Selected: Boolean);
  Var ITEM_TEXT:String;
  Begin

   ITEM_TEXT:=TMenuItem(Sender).Caption;

   If Selected Then
    Begin
     ACanvas.Brush.Color:=15717318;
     ACanvas.FillRect(ARect);

     ACanvas.Font.Color:=ClBlack;
     ACanvas.TextOut(ARect.Left+20,ARect.Top+3,ITEM_TEXT);

   End
  Else
   Begin
    ACanvas.Brush.Color:=ClBtnFace;
    ACanvas.FillRect(ARect);

    ACanvas.Font.Color:=ClBlack;
    ACanvas.TextOut(ARect.Left+20,ARect.Top+3,ITEM_TEXT)
  End;

End;

Проблема в том что при выводе менюхи
в названиях пунктов между буквами появляется символ & причем в разных позициях (но в одном пункте не болле одного)

в чём трабл?
помогите новичку

[Stilet]

А в том что этот символ указывает на горячую букву.
Перед отрисовкой текста удаляй этот символ из ITEM_TEXT

Кста ничего криминального в этом символе нет, он в каждой менюхе в принципе обитает, просто отрисовка его смысла происходит по другому.

[Comer_Jus]

Типо невидимый атрибут!!!
спасибо!

[Comer_Jus]

Вот если кому то надо!!

//Название пункта меню
ITEM_TEXT:=TMenuItem(Sender).Captio n;

//Удаляем символ атрибута
S:='';
For N:=1 To Length(ITEM_TEXT) Do If ITEM_TEXT[N]<>'&' Then S:=S+ITEM_TEXT[N];
ITEM_TEXT:=S;