unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  public
    PB: TPaintBox;
    Emf: TMetafile;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  PB:= TPaintBox.Create(Self);
  PB.Left:= 4; PB.Top:= 4; PB.Width:= 200; PB.Height:= 200;
  PB.Parent:= Self;
  Emf:= TMetafile.Create;
  Emf.Width:= PB.Width; Emf.Height:= PB.Height;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Emf.Free; PB.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  EmfCanvas: TMetafileCanvas;
  arr: array of TPoint;
  i, Size: Longword;
begin
  Size:= 11;
  SetLength(arr, 9);
  EmfCanvas:= TMetafileCanvas.CreateWithComment(Emf, 0, 'бла-бла-бла...', 'художник из меня... мдя...(C)_SGK');
  with EmfCanvas do
  begin
    Brush.Color := clWhite;
    FillRect(EmfCanvas.ClipRect);
    try
      Font.Size:= 10;
      Font.Style:= EmfCanvas.Font.Style + [fsBold];
      Font.Color:= clGray;
      TextOut(3, 3, 'бла-бла-бла...');
      Pen.Color:= clBlue;
      Pen.Width:= 2;
      for i:= Low(arr) to High(arr) do
      begin
        arr[i].X:= Random(PB.Width - Size);
        arr[i].Y:= Random(PB.Height - Size);
        Rectangle(arr[i].X, arr[i].Y, arr[i].X + Size, arr[i].Y + Size);
      end;
      Pen.Color:= clRed;
      Pen.Width:= 1;
      for i:= Low(arr) to High(arr)-1  do
      begin
        MoveTo(arr[i].X + Size div 2, arr[i].Y + Size div 2);
        LineTo(arr[i+1].X + Size div 2, arr[i+1].Y + Size div 2);
      end;
    finally
      Free;
    end;
  end;
  PB.Canvas.Draw(0, 0, Emf);
  Emf.SaveToFile('C:\бла-бла-бла.emf');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if FileExists('C:\бла-бла-бла.emf') then
  begin
    Emf.LoadFromFile('C:\бла-бла-бла.emf');
    PB.Canvas.Draw (0, 0, Emf);
  end
  else
    MessageBox(Application.Handle, 'Не сложилось, однако…', 'Мдя...', MB_OK + MB_ICONWARNING);
end;

end.