Просмоторщик изображений

unit MDI1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ExtDlgs, jpeg, XPMan, Buttons;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    OpenPictureDialog1: TOpenPictureDialog;
    OpenDialog1: TOpenDialog;
    XPManifest1: TXPManifest;
    N19: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    procedure N4Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  i: integer;
  current, s: string;
implementation
 
uses MDI2, Unit1;
 
{$R *.dfm}
 
procedure TForm1.N4Click(Sender: TObject);
begin
 if OpenPictureDialog1.Execute then
 with TForm2.Create(Application) do
 begin
 Caption:=ExtractFileName(OpenPictureDialog1.FileName);
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 ClientWidth:=Image1.Picture.Width;
 ClientHeight:=Image1.Picture.Height;
 end;
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.N19Click(Sender: TObject);
begin
if not (ActiveMDIChild=nil) then
 begin
 n19.Checked:= not n19.Checked;
 TForm2(ActiveMDIChild).image1.Stretch:=n19.Checked;
 end;
end;
 
 
procedure TForm1.N25Click(Sender: TObject);
begin
AboutBox.ShowModal;
end;
end.

unit MDI2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;
 
type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses MDI1;
 
{$R *.dfm}
 
 
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
 
end.

Img1.Refresh;