Hint beim PopUp

[Tpercon]

Ich erzeuge mit folgendem Procedureauszug Enträge im PopUp Menü:

Code:

var s:string; 
    i,j:integer; 
    Item:TMenuItem; 
begin 
s:='Eintrag=blabla-"Hint"'; 
Item:=TMenuItem.Create(Self); 
j:=Pos('=',s); 
If j<>0 
 then Item.Caption:=copy(s,1,j-1) 
 else 
  begin 
   j:=Pos('-',s); 
   If j<>0 
    then Item.Caption:=copy(s,1,j-1) 
    else Item.Caption:=s; 
  end; 
j:=Pos('-',s); 
If j<>0 
 then Item.Hint:=copy(s,j+2,Length(s)-j-2) 
 else Item.Hint:=''; 
PopUpMenu1.Items.Add(Item);

Doch wenn ich über den Eintrag im PopUp Menü zur Laufzeit drüber fahre, dann wird der Hint nicht angezeigt. Aber warum nicht? Es gibt doch aber auch kein ShowHint was man auf True setzen müßte.