[Doctor_Che]

Как выполнить следующее?

Команда Open открывает диалоговое окно открытия файла и, в случае выбора файла, добавляет его в подменю Reopen в качестве нулевого пункта и помечает этот пункт. При добавлении нового имени весь список имён смещается вниз.
В обработчике события OnClick пункта меню Open должно быть реализовано следующее:
Открывается диалоговое окно открытия файла. Если пользователь выбрал файл для открытия, то выполняется следующее:

Для пункта Reopen (максимальный размер которого ограничен 4 пунктами) необходимо:
- Установить доступность.
- Выполнить смещение в имеющемся списке имен файлов на одну позицию вниз с сохранением свойства Visible от предыдущего элемента. При смещении списка изменяется нумерация в названии пунктов меню. Для изменения этой нумерации используйте процедуру Delete из модуля System.
- В качестве нулевой строки вложенного меню установить подчеркнутую цифру 0, а за ней полное имя файла, полученное из диалогового окна. Свойство Visible этой строки установить равным True.
- Убрать старую пометку в списке имен файлов и установить пометку в нулевой строке.

Сделал вот так. Дальше не идёт...

Код:

procedure TForm1.Open1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Save1.Enabled := True;
  SaveAs1.Enabled := True;
  Close1.Enabled := True;
  Reopen1.Enabled := True;
  Reopen1.Items[0].Visible:= True;
  Reopen1.Items[0].Caption:= OpenDialog1.FileName;
  Reopen1.Items[0].Checked:= True;
end;