Bytes aneinanderhängen?

[Luckie]

Noch einfachher:

Delphi-Quellcode:

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