delphi中关于TStream的问题

[can159263]

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等于文件中的值呢？

[ydlchina]

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