Pues con la idea que te doy obtienes el valor de los dos, luego como no sé que tipo de validación vas a hacer, lo dejo en tus manos.
Código Delphi
[-]var
Reg1,Reg2:Integer;
Begin
Reg1:=Query1.First;Query1.Fields[0].AsInteger;
Query1.Next;
Reg2:=Query1.First;Query1.Fields[0].AsInteger;
....
end;
UnSaludo.