Obwohl die Frage eigentlich beantwortet ist: Warum so umständlich mit Streams und Konsorten?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
S: String;
i: Integer;
begin
AssignFile(F, 'C:\test.txt');
Rewrite(F);
// Man kann da auch mit andern Werten spielen... Aber
// allzugroß sollte man das nicht machen, sonst fängt Windows
// an das auszulagern... Und dann wird es langsam... ;-)
SetLength(S, 1024 * 1024);
for i := 1 to 1024 do Write(F, S);
CloseFile(F);
end;
Und *zack*... in 45 Sekunden ist ein Gigabyte weniger frei auf Laufwerk C:!
Gruß
Wormid