[Developer]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  m:TMemoryStream;
  i:integer;
begin
  m:=TMemoryStream.Create;
  i:=1684968;
  m.Write(i,SizeOf(i));
  i:=0;
  m.Position:=0;
  m.Read(i,SizeOf(i));
  ShowMessage(IntToStr(i));
  m.free;
end;