[Doctor_Che]

Создаю подменю Reopen.
В нем не отображается символ подчеркивания у элементов подменю.
Причем в Message выводит с подчеркиванием...
Что не так?
Текст процедуры:

Код:

procedure TForm1.Open1Click(Sender: TObject); 
Var i: Integer; 
s: String; 

begin 
if not OpenDialog1.Execute then Exit; 
Save1.Enabled := True; 
SaveAs1.Enabled := True; 
Close1.Enabled := True; 
Reopen1.Enabled := True; 
Menu.AutoHotkeys := maManual; 
for i := 0 to 3 
do begin 
s := '&' + IntToStr(i) + ' ' + OpenDialog1.FileName; 
if s = Reopen1.Items.Captiоn then Break; 
end; 
for i := i downto 1 
do begin 
if Reopen1.Items[i-1].Captiоn = '' then Continue; 
if Reopen1.Items.Captiоn = Reopen1.Items[i-1].Captiоn then Continue; 
Reopen1.Items.Captiоn := Reopen1.Items[i-1].Caption; 
s := Reopen1.Items.Caption; 
Delete(s,1,2); 
Reopen1.Items.Captiоn := '&' + IntToStr(i) + s; 
Reopen1.Items.Visible := True; 
end; 
Reopen1.Items[0].Captiоn := '&' + '0 ' + OpenDialog1.FileName; 
//MessageDlg(Reopen1.Items[0].Caption, mtInformation, [mbOK], 0); 
Reopen1.Items[0].Visible := True; 
Reopen1.Items[0].Checked := True; 
if OpenDialog1.FileName<>'' then Self.Captiоn := 'Form1' + ' ' + 
ExtractFileName(OpenDialog1.FileName) 
else Self.Captiоn := 'Form1'; 
end;

Вид подменю. Подчеркивания нет...
Error3.png

Вид MessageDlg. Подчеркивание есть...
Error2.png