procedure TMainForm.ScrollBoxMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
begin
  inherited;
  WheelScrollHandle(TScrollBox(Sender), WheelDelta);
end;

const cWheelSpeed =  10 ;
  cWheelDiv =  10 ; //Делитель, а то иногда слишком быстро
  CWheelDirtyDraw = False; //Отрисовавать при каждом скролле  
procedure WheelScrollHandle(sb: TScrollBox; delta: Integer);
  var
    OldPos: Integer;
begin
  if not cWheelEnabled then exit;
  if not sb.VertScrollBar.IsScrollBarVisible then exit;
  with sb.VertScrollBar do begin
    OldPos := Position;
    Position := Position - Round( (Delta / CWheelDiv) * (cWheelSpeed /  100 ) );

  end;
  if not cWheelDirtyDraw then SB.Invalidate;
end