Вложенное меню, контекстное меню

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    Image1: TImage;
    PopupMenu1: TPopupMenu;
    N7: TMenuItem;
    N8: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.N4Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('oblaka.bmp');
end;
 
procedure TForm1.N5Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('les.bmp');
end;
 
procedure TForm1.N3Click(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.N6Click(Sender: TObject);
begin
  Close;
end;
 
 
procedure TForm1.N7Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('oblaka.bmp');
end;
 
procedure TForm1.N8Click(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('les.bmp');
end;
 
end.

// одна процедура на два пункта "Выход"
procedure TForm1.CloseProgram(Sender: TObject);
begin
  Close; 
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  // грузим картинку при стaрте формы
  LoadAnImage(N5);  // это пункт [Файл > Картинки > Лес]
end;
 
// одна процедура на все пункты загрузки картинок
procedure TForm1.LoadAnImage(Sender: TObject);
var
  s: string;
begin
  // получаем текст пункта меню, который будет формировать имя файла
  s:= TMenuItem(Sender).Caption + '.jpg';
  Image1.Picture.LoadFromFile(s);
end;