Ich habe das in meinem Projekt auch so umgesetzt (hatten wir schon mal analog in der
DP) und gerade kürzlich gedacht, dass eine entsprechende TApplication-Option o.ä. sinnvoll wäre, mit der man dieses Verhalten leicht einstellen könnte (MouseWheelUnderCursor=True).