Datei mit beliebiger größe ???

[CazperFuture]

Ja ok es war ja auch nur ne Idee, "wirkliche Sicherheit" ist das längst nicht, das weis ich auch. Wie gesagt eswear nur so ein Versuch.
Ich hab da nochmal ne Frage: ich kann nun eine Datei mit bestimmter Größe erstellen, wie wäre der Code wenn ich z.B. 10 mit der selben Größe erstellen wollte. Immoment kirege ich's i-wie nicht hin, bis jetzt habe ich folgendes :

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  fs: TFileStream;
  i : Integer;
  begin
  for i := 1 to 10 do
  begin
  fs := TFileStream.Create('d:\test%d.dat',[i] fmCreate);
  try
    fs.Size := 1024;
  finally
    fs.Free;
  end;
end;
end.