Schleife beschleunigen sinnvoll?

[EWeiss]

Um welchen factor könnte man diese Schleife beschleunigen?

Delphi-Quellcode:

           BASS_ChannelGetData(FChannelId, @SpectrumData, BASS_DATA_FFT2048 or BASS_DATA_FFT_INDIVIDUAL);

           for i := 1 to 576 do
           begin
             p2^ := trunc(SpectrumData[i * 2] * FVisScale);
             inc(p2);
           end;

eventuell über ASM und wenn dann wie, wenn es was bringt.
Habe den eindruck als wenn BASS_ChannelGetData das ganze etwas ausbremst.

gruss