[mRoman]

Empezado por ecfisa

Hola.

Creo que un código mas aproximado a lo que buscas podría ser:

Código Delphi [-]
procedure TForm1.sbBtnDownClick(Sender: TObject);
begin
  if SG.TopRow > SG.FixedRows then
    SG.TopRow := SG.TopRow - 1
  else
    SG.Row := SG.Row + 1;
end;

procedure TForm1.sbBtnUpClick(Sender: TObject);
begin
  if (SG.Row = SG.FixedRows) and (SG.TopRow = SG.RowCount-1) then
    SG.TopRow := SG.TopRow + 1
  else if SG.Row > SG.FixedRows  then
    SG.Row := SG.Row - 1;
end;

Saludos

Excelente muchas gracias, funciona a la perfección!