Fórum pq esse codigo nao funciona. Alterar Level do BDE #188387

uses BDE,DBIPROCS

var
  hCur: hDBICur;
  Config: CFGDesc;
  Cont: Boolean;
begin
  if DbiInit(nil) = DBIERR_NONE then
  begin
  hCur := nil;
  if DbiOpenCfgInfoList(nil,dbiREADWRITE, cfgPersistent,   
  ´\DRIVERS\DBASE\TABLE CREATE´, hCur) = DBIERR_NONE then *Mudei
  begin
  if DbiSetToBegin(hCur) = DBIERR_NONE then
  begin
  Cont := True;
  while Cont do
  begin
  if (DbiGetNextRecord(hCur, dbiWRITELOCK, @Config, nil)
  <> DBIERR_NONE) then
  Cont := False
  else  if StrIComp(Config.szNodeName, ´LEVEL´) = 0 then * Mudei
  begin

  StrPCopy(Config.szValue, ´5´);      // AQUI MUDA de 7 para 5
  DbiModifyRecord(hCur, @Config, True);

  Cont := False
  end;
  end;
  end;
  end;
  DbiExit();
  end;
end;