6.Моя книга — это обращение к творческим умам, призыв к энтузиастам. Ребята! Если вам нравится идея Дракона, создайте на его основе хороший язык.
7. Мы в ракетной технике на основе Дракона сделали такой язык, какой нужен нам. Но вам он не годится. Так что создайте другой, удобный для вас.
8.Al_Mel! Теперь я отвечу на Ваш вопрос. Язык программирования Дракон сегодня изучить нельзя. Потому что для всех случаев, кроме ракетной техники, он не существует в природе. Сначала его нужно создать.

//Всё это может происходить на форме для Print Preview, где имеется PrintImage:TImage
...
var mc:TMetafileCanvas; m:TMetafile; ScaleX,ScaleY:real;
...
  m:=TMetafile.Create; m.Enhanced:=true; m.Width:=Printer.PageWidth; m.Height:=Printer.PageHeight;
  mc:=TMetaFileCanvas.Create(m,0);
  mc.Lock; mc.FillRect(Rect(0,0,Printer.PageWidth,Printer.PageHeight));
  PageWidth:=Printer.PageWidth-(MarginLeft+MarginRight)*Printer.PageWidth div PrintImage.Width;
  PageHeight:=Printer.PageHeight-(MarginTop+MarginBottom)*Printer.PageHeight div PrintImage.Height;
  scalex:=PageWidth/SizeX; ScaleY:=PageHeight/SizeY;
  mc.Font.Assign(SourceFont);  mc.Font.Height:=trunc(11*ScaleX); //удобно масштаб от фонта вычислять
  //Рисовать надо на произвольном холсте с задаваемым масштабом, в данном случае на созданном холсте метафайла
  FillImage(mc,PageWidth,SizeX,ScaleX,...);
  //Теперь метафайл можно использовать как угодно, например, отобразить на форме для Print Preview:
  mc.UnLock;
  mc.Free;
  PrintImage.Picture.Metafile.Assign(m);
  m.Free;
...
  //а потом можно делать опять что угодно, например, напечатать:
  Printer.BeginDoc;
  Printer.Canvas.Draw(0,0,PrintImage.Picture.Metafile);
  Printer.EndDoc;
...
  //или скопировать в буфер обмена:
  Clipboard.Assign(PrintImage.Picture.Metafile);
...
  //или сохранить в файле:
  if SaveDialog1.Execute then PrintImage.Picture.Metafile.SaveToFile(SaveDialog1.FileName);