[Ludo]

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

Код:

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;

[NumLock]

Close убери