有关实现DELPHI读取*.DAT文件问题(50分)

各位,有没有人写过读写*.DAT文件的朋友??应该怎么写,能不能帮我一把,小弟在此先谢谢了.最好有DEMO

Var
fso:TFileStream;
buf:Array[1..8192] of Byte;
buflen:LongWord;


buflen:=SizeOf(buf);
fso:=TFileStream.Create('1.dat',fmOpenReadWrite);
fso.Read(buf,buflen);//读
fso.Write(buf,buflen);//写
fso.Free;

接受答案了.