150 MB Datei erstellen immer in 256byte schritten?

[Zacherl]

Und jetzt noch ohne Label:

Delphi-Quellcode:

procedure TForm1.CreateMyFile; 
   const MaxSize=150 * 1024 * 1024; 
   var F:File; 
       PC:PChar; 
       c:Char; 
       i:Integer; 
begin 
   GetMem(PC, 256); 

   AssignFile(F, 'E:\Test.nix'); 
   ReWrite(F, 1); 
   repeat
      For c:='a' to 'z' do begin 
         For i:=0 to 256-1 do 
            PC[i]:=c; 

         BlockWrite(F, PC^, 256); 
         If FileSize(F)>=MaxSize then Break; 
      end; 
      until FileSize(F)>=MaxSize; 
   CloseFile(F); 

   FreeMem(PC); 
end;

Florian