[[jcarteagaf]]

Ahi te va un ejemplo:

Código Delphi [-]
var
  bmRec: TBookMark;
begin
  with Archivo do
  begin
    DisableControls;
    bmRec := GetBookmark;
    First;
    try
      while not EOF do
      begin
        // hacer algo aqui
        Next;
      end;
    finally
      GotoBookmark(bmRec);
      FreeBookmark(bmRec);
      EnableControls;
    end;
  end;
end;

EnabledControls y DisableControls es para evitar que el usuario note que se esta recorriendo el dataset.

Saludos