打印不同步的？请指点，谢谢(30分)

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