Если такой алгоритм распределения фаз???
Можно конечно воспользоватся Рандомом но может всётаки есть более универсальный

Код
for I1 := 1 to 255 do
begin
R := Random * 2;
for I := 0 to 511 do
SignalOut[I]:= SignalOut[I] + 600 * Sin(2 * Pi * I * I1 / 512 + Pi * R);
end;
begin
R := Random * 2;
for I := 0 to 511 do
SignalOut[I]:= SignalOut[I] + 600 * Sin(2 * Pi * I * I1 / 512 + Pi * R);
end;