[Ludo]

Добрый день! Нижеприведенный код работает, на печать изображение идет, но сразу после события приложение закрывается, без каких либо ошибок. Подскажите, кто с этим работает, в чем может быть причина.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14

var rect: TRect; begin  if FormMain.PrintDialog.Execute then   begin     Close;     rect.Top:= 10;     rect.Left:= 10;     rect.Right:= 10 + Trunc(FormMain.ImageDocPrintScan.Picture.Graphic.Width);     rect.Bottom:= 10 + Trunc(FormMain.ImageDocPrintScan.Picture.Graphic.Height);     Printer.BeginDoc;     Printer.Canvas.Draw(rect.Left, rect.Top, FormMain.ImageDocPrintScan.Picture.Graphic);     Printer.EndDoc;   end; end;