Source position: ovcbase.pas line 123
type TMouseWheelEvent = procedure(
Sender: TObject;
Shift: TShiftState;
Delta: Word;
XPos: Word;
YPos: Word
) of object;