[roman]

Empezado por jachguate

Código Delphi [-]
Procedure IrAlRegistroNo(ds: TDataSet; NoRec : Integer);

Var
  i : Integer;

Begin
  ds.first;
  for i := 1 to NoRec do
    ds.next;
end;

Mmm.., bueno, en este caso podríamos simplificar un poco:

Código Delphi [-]
Procedure IrAlRegistroNo(ds: TDataSet; NoRec : Integer);
Begin
  ds.first;
  ds.moveby(NoRec);
end;

De cualquier forma quizá cabe aclarar que normalmente no es buena idea depender de la posición física de los registros.

// Saludos