TPrintDialog abbrechen?

[Progman]

Delphi-Quellcode:

if PrintDialog1.execute then begin
      Bitmap := GetFormImage;
     try
      Clipboard.Assign(Bitmap);
     with Printer do
      begin
       BeginDoc;
       Printer.Canvas.StretchDraw(Rect( 100, 0, PageWidth - 100, (PageHeight div 4)+ 1 div 3 ), Bitmap);
       EndDoc;
      end;
     finally
       Bitmap.Free;
     end;
    end;
end

wäre wohl besser?
Bei Klick auf Abbrechen liefert execute False und der Block wird gar nicht ausgeführt.