帮忙看看打印不同步的？

现象如下：
1。打印第一次不出东西，关掉打印窗口就打出来了
2。打印第一次打不出，第2次打印就打出了第一次的。应该是缺少什么结束的东西，指点下begin
  //if not printdialog1.Execute then exit ;
  with Printer do
  begin
    BeginDoc;
      Canvas.Brush.Style := bsClear;
      Canvas.TextOut(x,y ,StaticText1.Caption );
      Canvas.StretchDraw(rect,image1.Picture.Bitmap);
    EndDoc;
  end;
end;