Source position: editbtn.pas line 228
protected procedure TCustomEditButton.EditMouseWheelUp(
Shift: TShiftState;
MousePos: TPoint;
var Handled: Boolean
);