如何在一页打印两张或更多的图片！(50分)

hi,大师：
我写以下程序想在一页打印两张或更多的图片，但只能打一张，那位能帮我解决？
var
myrect,myrect1:trect;

.....
myrect:=rect(200,400,1050,1050);
printer.Canvas.StretchDraw(myrect,image0.Picture.Bitmap);
myrect1:=rect(1250,400,2100,1050);
printer.Canvas.StretchDraw(myrect1,image1.Picture.Bitmap);
printer.EndDoc;
我使用myrect不行！又定义myrect1，还不行！但注掉前一个，便能打下一个！为何？

try this:

myrect:=rect(200,400,1050,1050);
printer.Canvas.StretchDraw(myrect,image0.Picture.Bitmap);

<font color = 'blue'>
while printer.canvas.lockcount > 0do

application.Processmessages;

// or sleep(1000);

</font>
myrect1:=rect(1250,400,2100,1050);
printer.Canvas.StretchDraw(myrect1,image1.Picture.Bitmap);
printer.EndDoc;

hi,w.h.
我使用的方法事后证明正确！当时和调用的另一函数有冲突！不过还是谢谢您！
我使用if image30.Picture.Bitmap<>nil then
判断图象框中是否有图像，为何不好用？