MemoryBlock mit Zufallsdaten füllen

[Chris Moeller]

Hat jemand eine Idee, wie man "schnell" einen MemoryBlock mit Zufallsdaten 
füllen kann?
Das hier ist jedenfalls viel zu langsam:

for n=0 to len(mem)
    mem.Byte(n)=rnd*255
next n
  
Achja: der Block kann schon mal 128 MB groß werden

Chris