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

本意：我有十条记录，想一条一条的打印。我用下面代码：
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，这笨方法我也想到，可不想用。）
（前面我已提出，要分请找前面记录！）

难道就只能用这笨办法了吗？！！！！！！！！！！

不会吧，过了几天了都没有人给我帮助？