将date写入流文件，读出出错？(100分)

procedure TEParent.Button8Click(Sender: TObject);
var
EPdate:Tdate;
EPFile:TFileStream;
begin
EPdate:= date();
EPFile:=TFileStream.Create('System1.cfg',fmCreate or fmOpenWrite);
EPFile.WriteBuffer(EPdate,sizeof(date));
EPFile.Free();
end;

procedure TEParent.Button9Click(Sender: TObject);
var
CurDate:Tdate;
EPFile:TFileStream;
begin
EPFile:=TFileStream.Create('System1.cfg',fmOpenRead);
CurDate:= EPdate;
EPFile.Free();
ShowMessage(datetostr(Curdate));
end;

var
CurDate:Tdate;
EPFile:TFileStream;
begin
EPFile:=TFileStream.Create('System1.cfg',fmOpenRead);
EPFile.ReadBuffer(CurDate,SizeOf(date));
EPFile.Free();
ShowMessage(datetostr(Curdate));