1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TMain.Button1Click(Sender: TObject);
var
   fs: TFileStream;
   Buddys: array[0..99] of TBuddy; //TBuddy ist 21488 Bytest groß
begin

   fs := TFileStream.Create(IncludeTrailingBackslash( ExtractFilePath( ParamStr(0))) + 'test.txt', fmCreate);
   fs.Write(Buddys, SizeOf(Buddys));
   fs.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TMain.Button1Click(Sender: TObject); 
var 
   fs: TFileStream; 
   Buddys: array of TBuddy; //TBuddy ist 21488 Bytest groß 
begin 
  SetLength(Buddys, 1024 * 1024);

  fs := TFileStream.Create(ExtractFilePath(ParamStr(0)) + 'test.txt', fmCreate); 
  try
    fs.Write(Buddys[1], Length(Buddys) * SizeOf(TBuddy)); 
  finally
    fs.Free; 
  end;
end;