Генератор случайных файлов (снова!)

Мне очень нужен генератор случайных файлов, который генерирует действительно случайные несжимаемыефиктивные файлы.

Я закончил с этим кодом Delphi. Это работает, но это мучительно медленно

 var
    Buf     : Integer;
    TheFile : TFileStream;
 begin
      TheFile := TFileStream.Create(FileName, fmCreate OR fmOpenReadWrite);
      with TheFile do
      begin
           for i := 0 to FileSize do    // Iterate
           begin
                Buf := Random(999999) * i;
                WriteBuffer(Buf, SizeOf(Buf));
           end;    // for
      end;    // with
 end,

Мой вопрос: существует ли быстрыйгенератор случайных файлов, который я могу использовать?И код Delphi, и/или инструменты командной строки приемлемы, если:

1. я могу запустить их в Windows безручного вмешательства (мне это нужно для моих тестов, никакое вмешательство не разрешено)
2. это быстро
3. Сгенерированные файлы несжимаемы(т. е. сжатие сгенерированного файла не приводит к экономии места)

РЕДАКТИРОВАТЬДля тех, кому интересно, я применил совет, который получил здесь, и сделал эту функцию , это достаточно быстро, и 7zip с трудом сжимает сгенерированные данные.