[Doctor_Che]

Не получается создать нормальную нумерацию в подменю.
Пока что удалил свойства Caption из Reopen1.Items[i].Caption
Получилось вот что

Код:

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;
  for i := 3 downto 1
  do begin
      if Reopen1.Items[i-1].Caption = '' then Continue;
      Reopen1.Items[i].Caption := Reopen1.Items[i-1].Caption;
      s := Reopen1.Items[i].Caption;
      MessageDlg(IntToStr(i) + 's=' + s, mtInformation, [mbOK], 0);
      Delete(s,1,1);
      MessageDlg(IntToStr(i) + 's delete=' + s, mtInformation, [mbOK], 0);
      Reopen1.Items[i].Caption := IntToStr(i) + s;
      Reopen1.Items[i].Visible:= True;
  end;
 
  Reopen1.Items[0].Caption := '0 ' + OpenDialog1.FileName;
  Reopen1.Items[0].Visible:= True;
  Reopen1.Items[0].Checked:= True;
 
  if OpenDialog1.FileName<>'' then Self.Caption := 'Form1' + '  ' +
   ExtractFileName(OpenDialog1.FileName)
    else Self.Caption := 'Form1';
end;

Получается вот что:
После открытия первого файла
1_1.png
переменная s принимает значение
2_1.png
"0 имя файла"
! Ноль подчеркнут
после

Код:

Delete(s,1,1);

переменная s принимает значение
3_1.png
"0 имя файла"
! Ноль НЕ подчеркнут
А в подменю записывается вот-так
4_1.png
Как создать нормальную нумерацию: 0, 1, 2, 3?
И что бы цифра была подчеркнута.