写文件的错误，帮忙看看，谢谢！！（在线等30分钟）(50分)

程序如下：
procedure TForm1.savetofile(startpoint:integer;bufferointer;length:integer);
var
file1:TFileStream;
begin
try
file1:=TfileStream.Create(form1.saveadd.Text,fmOpenReadWrite);
file1.Seek(startpoint,soFromBeginning);
file1.Write(buffer,length);
FreeAndNil(file1);
except
end;
end;
谁帮看一下？

这段程序中的file1.Write(buffer,length)的buffer参数传的对吗？
为什么老是不能正确的把buffer中的内容添加到文件中去？

出什么错，把
FreeAndNil(file1);
改成
file1.Free 试试

问题解决了。
原来是这句话写错了：
file1.Write(buffer,length);
应该把buffer改为：buffer^
忘了加指针
都怪自己粗心大意！！！