delphi中关于TStream的问题

Question

procedure TForm1.Button1Click(Sender: TObject);
var
int1:integer;
stream:TfileStream;
  begin
    stream:=TFileStream.create('D:\t.dat',fmcreate);
    int1:=54;
    stream.Write(int1,sizeof(integer));
    stream.free;
  end;
procedure TForm1.Button2Click(Sender: TObject);
var
int2:integer;
stream:TfileStream;
begin
  int2:=1;
  stream:=TFileStream.Create('D:\t.dat',fmcreate);
  stream.Read(int2,sizeof(integer));
  edit1.Text:=floattostr(int2);
  stream.Free;
end;
两个button（button1,button2），一个Edit1
button1是用来将int1的值保存在文件'D:\t.dat'中，按button1之后，查看文件，的确保存了int1的值。
button2是用来将文件'D:\t.dat'中的值取出来赋给int2，但是运行之后，文件中的值是被取走了（运行后该文件大小为0字节），而int2却还是为1,始终不会变。
也就是说，文件中的值被读取后没有放在int2中，那它存放在哪去了？又怎样使int2等于文件中的值呢？

Answer 1

stream:=TFileStream.Create('D:\t.dat',fmOpenRead );