关于连续打印的问题！(50分)

本意：我有十条记录，想一条一条的打印。我用下面代码：
with query1do
begin
while not eofdo
begin
QuickRep1.Preview;
if messagedlg('打印下一个吗？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
next;
refresh;
end
else
form1.close;
end;
end;
如果在VFoxPro下，上面类似的代码是可行的，可在Delphi下，就不行。原因：执行QuickRep1.Preview;
后，指针到了最后一条。请问哪位大虾能帮我？谢了！

大虾们，帮帮我啊。我需要你们指点迷津啊！！！！！！！！！！！
用别的方法能实现我想要的功能也行啊。
（一条记录Copy到另外一个Query，然后再打印，然后再Copy，这笨方法我也想到，可不想用。）

不会吧，过了好几天了都没人给我帮助？！！！！！！！！！！[]