TMouseWheelEventObj

pl 

WheelDelta

TMouseEventObj

Position

pl 

Shift

TEventObj

pl 

Sender