[Страдалецъ]

Так не устроит?

Код:

procedure TForm1.StringGrid1MouseWheelDown(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 if StringGrid1.Row + Succ(StringGrid1.VisibleRowCount) <= StringGrid1.RowCount
 then StringGrid1.Row := StringGrid1.Row + Succ(StringGrid1.VisibleRowCount);
end;

procedure TForm1.StringGrid1MouseWheelUp(Sender: TObject;
  Shift: TShiftState; MousePos: TPoint; var Handled: Boolean);
begin
 if StringGrid1.Row - Succ(StringGrid1.VisibleRowCount) >= StringGrid1.FixedRows
 then StringGrid1.Row := StringGrid1.Row - Succ(StringGrid1.VisibleRowCount);
end;