控制连续打印的问题！！！！！！！！！！！！！！(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，这笨方法我也想到，可不想用。）
（要分请找前面记录！）