var mc:TMetafileCanvas; m:TMetafile;
...
m:=TMetafile.Create; m.Enhanced:=true; m.Width:=...; m.Height:=...;
mc:=TMetaFileCanvas.Create(m,0);
mc.Lock; mc.FillRect(Rect(0,0,m.Width,m.Height));
MyDraw(mc);
mc.UnLock;
mc.Free;
//дальше делаем, что хотим, например:
PrintImage.Picture.Metafile.Assign(m); //рисование там, где надо - форма, превью, мап и т.п.
m.SaveToFile(SaveDialog1.FileName); //сохранение в файл .EMF
m.Free;

program Project1;
uses
  Forms, Windows,
  Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
  SetThreadLocale(1049);
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.