1:把不要删除的记录取出来,重新生成一个同名文件,覆盖原来的文件。
2:
procedure TXXXX.Search(const AName: string);
var
  FileRec: TFileRec; //假设这是你的记录,且有一个Name字段
begin
  ReSet(F);  //f是 file of FileRec
  while not Eof(f) do
  begin
    Read(F, FileRec);
    if FileRec.name = AName then
    begin
      //你的处理
      break;
    end;
  end;
end;