When scrolling with the mousewheel the FBlockScrollingUpdate is true, so the event is not fired.
Please Fix ! 
procedure TTMSFNCPlannerBase.VScrollChanged(Sender: TObject);
begin
if FBlockScrollingUpdate then
Exit;
if not IsMouseDown then
StopAnimationTimer;
VerticalScrollPositionChanged;
end;