por alguna razón talvez no estas al principio de los registros...
Asegurate que estas al inicio cuando comienzas a recorrerlos...
Cita:
frmLogin.query.Open;
frmLogin.query.First;
|
Un poquito de codigo para que controle el avance de registros y el retrocezo.
Código Delphi
[-]
procedure tform1.cmdNextClick(Sender:TObject);
begin
cmdNext.Enabled:=Not frmLogin.query.Eof;
if cmdNext.Enabled then
frmLogin.query.Next;
cmdPrev.Enabled:=Not frmLogin.query.Bof;
end;
procedure tform1.cmdPrevClick(Sender:TObject);
begin
cmdPrev.Enabled:=Not frmLogin.query.Bof;
if cmdPrev.Enabled then
frmLogin.query.Prior;
cmdNext.Enabled:=Not frmLogin.query.Eof;
end;