procedureTForm1.FormMouseWheel(Sender:TObject;Shift:TShiftState;WheelDelta:Integer;MousePos:TPoint;varHandled:Boolean);beginifWheelDelta<0thenScrollBox1.Perf...