Я пробовал брать число выборок в 4 раза больше чем БПФ потом в цикле делал сложение этих 4 БПФ и делил на 4 но в итоге практически ничего не изменилось

Код
FFT(Ar1, 1024);
FFT(Ar2, 1024);
FFT(Ar3, 1024);
FFT(Ar4, 1024);
for I := 0 to 1023 do
begin
PAr1[I] := Sqrt(Sqr(Ar1[I * 2]) + Sqr(Ar1[I * 2 + 1]));
PAr2[I] := Sqrt(Sqr(Ar2[I * 2]) + Sqr(Ar2[I * 2 + 1]));
PAr3[I] := Sqrt(Sqr(Ar3[I * 2]) + Sqr(Ar3[I * 2 + 1]));
PAr4[I] := Sqrt(Sqr(Ar4[I * 2]) + Sqr(Ar4[I * 2 + 1]));
end;
for I := 0 to 1023 do
PAr1[I] := (PAr1[I] + PAr2[I] + PAr3[I] + PAr4[I]) / 4;