[marcoszorrilla]

Prueba con esto:

Código Delphi [-]
   public
     { Public declarations }
   nReg:Integer;
    
   end;
 
 var
   Form1: TForm1;
 
 implementation
 
 {$R *.DFM}
 
 
 
 procedure TForm1.FormActivate(Sender: TObject);
 begin
 ScrollBar1.Max:=Table1.RecordCount;
 Table1.First;
 nReg:=1;
 end;
 
 procedure TForm1.ScrollBar1Change(Sender: TObject);
 begin
   if ScrollBar1.Position > nReg then
   begin
   Table1.Next;
   nReg:=nReg + 1;
   end
   else
   begin
   Table1.Prior;
   nReg:=nReg - 1;
   end;
 
 end;

Un Saludo.