移动记录的问题？

Question

while not query1.Eof do
 begin
   ....
   query1.next;
 end;
以上可以实现记录由第一条到最后一条。
我现在需要从最后一条移到第一条，请教语句怎么写？
在fox中可以使用skip -1,可在delphi中不知道语句怎么用，谢谢各位的帮助　

Answer 1

if Eof then
query1.first

Answer 2

for i:=1 to query1.recordcount do
begin
  ...
  query1.Prior;
end;

Answer 3

query1.last;
 Repeat 
  ...
  Query1.Prior;
 until Query1.Bof;

Answer 4

query1.last;
while not query1.bof do
 begin
   ....
   query1.Prior;
 end;

Answer 5

query1.last;
while not query1.bof do
 begin
   ....
   query1.Prior;
 end;

Answer 6

query1.moveby(n);   //　moveby(n)相当于你熟悉的fox中的 skip n，n可为负数