150 MB Datei erstellen immer in 256byte schritten?

[R0BIN]

ok, ansich hab ich das verstanden:

Delphi-Quellcode:

procedure caststring;
var
  fs: TFileStream;
const
  s: string = '1';
begin
  fs := TFileStream.Create('dateia256.txt', fmCreate or fmOpenWrite);
  fs.Write(PChar(s)^, Length(s)); 
end;

Aber ich verstehe nicht wie ich genau 256byte als 1 und die nächsten als 2 und wieder die nächsten als 3 schreiben kann. Die Filegröße soll dabei dynamisch von mir zugewiesen werden können.

R0BIN