正常情况下，ADOQuery在open后，纸箱第一条记录，但是有大约不到1%的例外会纸箱第二条记录，
所以为保证数据完整，须要显式纸箱第一条记录：ADOQuery.First;
我是真是遇到的。
  for i := 1 to 1000 do begin
    PCode.Close;
    PCode.SQL.Text := 'Select * From FlawCode Order by FlawCode';
    PCode.Open;
    //PCode.First;
    N:=PCode.RecNo;
    if N<>1 halt;
  end;

---------------------------------