in Delphi 2007

function TComboBox.DoMouseWheel(Shift: TShiftState; WheelDelta: Integer;
  MousePos: TPoint): Boolean;
begin
  if FUseMouseWheel then
    Result := inherited DoMouseWheel(Shift, WheelDelta, MousePos)
  else
    Result := True;
end;