Редактирование файла DBF

procedure TForm2.Button3Click(Sender: TObject);
 
procedure loadCrossData(fn: string; l: TStringList);
var
  CSVFile: TextFile;
  Line: string;
  id: integer;
  wrkLst: TStringList;
begin
  wrkLst:=TStringList.Create;
  wrkLst.Delimiter:=';';
 
  AssignFile(CSVFile, fn);
  Reset(CSVFile);
  try
    while not Eof(CSVFile) do
    begin
      Readln(CSVFile, Line);
      wrkLst.Clear;
      wrkLst.DelimitedText := Line;
      if TryStrToInt(wrkLst[1], id) then
        l.AddObject(wrkLst[0], TObject(id));
    end;
  finally
    CloseFile(CSVFile);
    wrkLst.Free;
  end;
end;
 
var val: Integer;
    lst: TStringList;
    id:  Integer;
begin
  with dbfTable do begin
    FilePath:=ExtractFilePath(ParamStr(0));
    TableName:='water_Object.dbf';
 
    lst:=TStringList.Create;
    lst.Sorted:=True;
    loadCrossData(FilePath+'crossTable.csv', lst);
 
    Open;
    try
      while not Eof do begin
        if lst.Find(Fields[4].asString, val) then begin
          id:=Integer(lst.Objects[val]);
          Edit;
          Fields[5].AsInteger:=id;
          Post;
        end;
        Next;
      end;
    finally
      dbfTable.Close;
      lst.Free;
    end;
  end;
end;