Datei mit beliebiger größe ???

[Luckie]

Ja warum sollte das nicht möglich sein?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('d:\test.dat', fmCreate);
  try
    fs.Size := 1024;
  finally
    fs.Free;
  end;
end;