文件数据对考出问题，帮忙解决下 ( 积分: 100 )

我把StingGrid中的内容保存在了一个文件中，现在删除stinggrid中的一条记录，我想把文件中的相应的一条记录也删除掉，现在我的思路是用一个临时的文件把原文件中的保留部分存起来，再删除原文件，更改新文件的文件名字，我写了一个过程，但是老是报I/O输出错误！！大家帮忙看下
procedure DelPage(PgFileName:string;GrdPg:TStringGrid);
var
page:TPageGroup;
count,count1,i,selr:Integer;
fil:file of TPageGroup;
fln:file of TPageGroup;
begin
If assigned(GrdPg) then
selr := GrdPg.Selection.top
else Exit;
if FileExists(ExeFilePath+'/data/PatrolData/huayu.spf') then
deletefile(PChar(ExeFilePath+'/data/PatrolData/huayu.spf'));
AssignFile(fln,ExeFilePath+'/data/PatrolData/huayu.spf');
try
ReWrite(fln);
except
On EInOutError do
Exit;
end;
count1:=FileSize(fln);
AssignFile(fil,PgFileName);
Reset(fil);
count:=FileSize(fil);
try
for I := 1 to Count-1 do
begin
if I=selr then
Continue;
Seek(fil,I);
read(Fil,page);
Seek(fln,count1);
write(Fln,page);
Inc(count1);
end;
CloseFile(fil);
CloseFile(fln);
deletefile(PChar(PgFileName));
Rename(fln,PgFileName);
except
On EInOutError do
begin
CloseFile(fil);
CloseFile(fln);
deletefile(PChar(ExeFilePath+'/data/PatrolData/huayu.spf'));
ShowMessage('删除不成功');
Exit;
end;
end;
end;

问题已经解决了

还是有问题，郁闷了！！
开始能删现在删不了！！～～