Леонид, что-то я сомневаюсь, что этот алгоритм можно будет на PHP перевести! Позже попробую! )
------------ Дoбавленo в 14.22:
Леонид, функция doRandSeed в компоненте Random не воспроизводима на PHP, или я ошибаюсь?

procedure THIRandom._work_doRandSeed;
begin
RandSeed := ToInteger(_Data);
end;

что она делает, что-то не пойму. Почему не StrToInt например?