TradingChart is a composite of two Graphics. Looks like Epilog is added to the second one (volume chart) and Prolog is added to the first one.
scaledPath = MapAt[2*10^5 # &, currentPath, {All, 2}];
TradingChart[data[[1 ;; 32]],
 Epilog -> {Thickness[0.0075], Black, Line[scaledPath], PointSize[Medium], Red, Point[scaledPath]},
 Prolog -> {Thickness[0.0075], Black, Line[currentPath], PointSize[Medium], Red, Point[currentPath]}]
