FFT Berechnung fails

[TiGü]

Ich hätte ja testhalber einfach mal meine Zwischen-Datenquelle mit Testdaten gefüllt und dann geschaut, ob meine Malroutine richtig ist.
Bspw. so hier:

Delphi-Quellcode:

        for I := 0 to 255 do
        begin
          VisData.Spectrum[0, I] := I;

          VisData.Spectrum[1, I] := 255 - I;
        end;

Da müssten dann ja zwei Rampen bei raus kommen.