mostrar informacion en un DBEdit

[[Caral]]

Hola
Boton next:
Al llegar al final, regresa al primero:

Código Delphi [-]
  ADOQuery1.Next;
  If DataSource1.DataSet.Eof then
  ADOQuery1.First;

Si no se tiene datasource en la linea IF:

Código Delphi [-]
 ADOQuery1.DataSetField.DataSet.Eof

Boton Prior:
Al Llegar al primer registro, va al ultimo:

Código Delphi [-]
 ADOQuery1.Prior;
 If DataSource1.DataSet.Bof then
 ADOQuery1.Last;

Si no se tiene datasource en la linea IF:

Código Delphi [-]
 ADOQuery1.DataSetField.DataSet.Bof

Saludos