Neue Version oben danke an @Michael II für seine Hilfe (Mitarbeit an der FFT)
Ich verwende seine 
sowie an @Neutral General für die Lösung des 2D Arrays in eins zu verschieben.
Source include.
In D2010 geschrieben ihr müsst leider
VCL.. selbst zu Grapics usw.. addieren in neueren Delphi Versionen.
gruss