procedure TForm1.AddSubMenuItem;
var
MainMenuItem, SubMenuItem: TMenuItem;
begin
// Предположим, что у вас уже есть главное меню и пункт меню
MainMenuItem := File1; // Например, пункт меню "File1"
// Создаем новый пункт меню для подменю
SubMenuItem := TMenuItem.Create(Self);
SubMenuItem.Caption := 'New SubMenu Item'; // Название пункта подменю
SubMenuItem.OnClick := SubMenuItemClick; // Обработчик события клика
// Добавляем новый пункт меню к главному пункту меню
MainMenuItem.Add(SubMenuItem);
end;
procedure TForm1.SubMenuItemClick(Sender: TObject);
begin
// Обработчик события клика по пункту подменю
ShowMessage('SubMenu Item Clicked!'

;
end; Вот что пишет deepseek