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