[AleD]

поясню сказанное Aristarh Dark:

Код:

TInfo = packed record
  a: Word;
  b: Cardinal;
  ...
end;

procedure Save(AStream: TStream);
var
  nfo: TInfo;
begin
  nfo.a := 50;
  nfo.b := 800000;
  AStream.Write(nfo,SizeOf(nfo));
end;

вот как то так