TFileStream & Dateien beliebiger Größe

[Kryoko]

Hallo !

z.Z. benutzte ich noch den TFileStream um Dateien beliebiger Größen zu erstellen, nur
dauert es bei Dateien die größer als 16 Mb sein soll sehr lange.
Gibt es da noch schnellere Methoden ??

Delphi-Quellcode:

   
   while ( fFileStream.Size < (fSize * 1000) ) do
          fFileStream.Write(fBuffer, fSize);