Avanzar de registro en consulta a MySQL

[jlrdz]

Ya lo hice de la siguiente manera, me avanza al siguiente registro y me llena los campos pero solamente un registro y cuando presiono nuevamente el botón ya no lo hace, ya no me avanza a la siguiente registro de la columna.

Código Delphi [-]
procedure TfrmUsuarios.bitSiguienteClick(Sender: TObject);
begin

frmLogin.query.Next;
 edtNumero.Text:=frmLogin.query.FieldValues['numero_usuario'];
  edtNombre.Text:=frmLogin.query.FieldValues['nombre_usuario'];
  edtTipo.Text:=frmLogin.query.FieldValues['tipo'];
  btnCambiarpass.Visible:=True;
  
end;

en que estaré mal?