Source position: orca_scene2d.pas line 667
type TD2MouseWheelEvent = procedure(
Sender: TObject;
Shift: TShiftState;
WheelDelta: Integer;
MousePos: TD2Point;
var Handled: Boolean
) of object;