Список последних открытых файлов

[JoLan]

Составляю список из 10 последних открытых файлов в подменю одного из пунктов MainMenu. Потом добавил проверку на существование уже открытого экземпляра файла. В итоге вышло следующее:

var ws: String;
    LastOpened: Array of TMenuItem;
    b: Boolean;
...
  b := False;
  for i := 0 to High(LastOpened) do begin
    ws := LastOpened[i].Caption;
    if Pos(OpenDialog1.FileName,ws) <> 0 then begin
      b := True;
      Break;
    end;
  end;
  if not b then begin
    if Length(LastOpened) < 10 then begin
      SetLength(LastOpened,Length(LastOpened)+1);
      if Length(LastOpened) > 1 then Move(LastOpened[0],LastOpened[1],SizeOf(TMenuItem)*High(LastOpened));
    end;
    LastOpened[0] := TMenuItem.Create(N8);
    LastOpened[0].Caption := OpenDialog1.Filename;
    N8.Enabled := True;
    while N8.Count <> 0 do N8.Delete(0); //Чтоб последний открытый был наверху
    for i := 0 to High(LastOpened) do N8.Add(LastOpened[i]);
  end;

Но в ws каким-то странным образом появляется символ "&", что и сводит всю проверку к ничему. В чем может быть проблема?

[evg_m]

TMenuItem Caption F1

Specifies the text of the menu item.

Delphi syntax:

property Caption: string;

C++ syntax:

__property AnsiString Caption = {read=FCaption, write=SetCaption};

Description

Set Caption to the string the user sees for this item in the menu. To underline a character in a string, include an ampersand (&) before the character. This type of character is called an accelerator character. If Caption includes an accelerator character, the user can select the menu item by pressing Alt while typing the underlined character.

[Gin 1]

В MainMenu свойство AutoHotkeys переключите на maManual.
Или

MainMenu.AutoHotkeys := maManual;

[digitalis]

Для этого на машине времени следует перенестись на 13 лет назад
Эх, новички...