一个奇怪的DLL调用问题

我使用DLL封装了数据库操作对象，使用一直都没有问题。
这几天需要在DLL里作一些操作：对每一个目录下的DLL进行一次动态加载，并调用一个函数，来进行判断。
代码如下：

var
  i : Integer;
  Ask : Boolean;
  FileName, DllFile : String;
  tmList : TList;  { 通过校验的文件列表 }
begin
  tmList := TList.Create;
  { 是否有不使用的文件版本信息，有则删除 }
  { 删除非系统文件类型 }
  (* *)
  with FClientDataSet do
  begin
    try
      if EnLib = 0 then
        EnLib := LoadLibrary(Encode_DLL);
      if EnLib = 0 then
        raise EDLLLoadError.Create(Encode_DLL + LoadFileErr)
      else
      begin
        @procGetFileVerify := GetProcAddress(EnLib, 'F0001');
        if Assigned(procGetFileVerify) then
        begin
        end;
      end;

      First;
      while not Eof do
      begin
        Ask := False;
        for i := 0 to aList.Count - 1 do
        begin
          { 删除非系统文件类型 }
          if CompareText(PFileNode(aList.List^[i]).FileName, Fields.FieldByName('FileName').Value) = 0 then
          begin
            DllFile := PFileNode(aList.List^[i]).FilePath + PFileNode(aList.List^[i]).FileName;
            FileName := PFileNode(aList.List^[i]).FileName;

            try
              if dllLib = 0 then
                dllLib := LoadLibrary(PChar(DllFile));
              if dllLib = 0 then
              //  raise EDLLLoadError.Create(DllFile + LoadFileErr)
              else
              begin
                @procGetFileVInfo := GetProcAddress(dllLib, 'FM0001');
                if Assigned(procGetFileVInfo) then
                  { 进行校验 }
                  if procGetFileVerify(PChar(FileName), procGetFileVInfo) then
                  begin
                    tmList.Add(aList.List^[i]);
                    Ask := True;
                    Break;
                  end;
              end;
            finally
              FreeLibrary(dllLib);
              dllLib := 0;
            end;
          end;
        end;
        if not Ask then
          Delete
        else
          Next;
      end;

    finally
      FreeLibrary(EnLib);
      EnLib := 0;
    end;
  end;
.....
我的数据库操作DLL是通过别的文件来调用的，是以加载的，现在只是加载一次，返回个值，然后释放掉。。
从DLL的理论上来说，我这个DLL只是引用+1，释放-1。
但是，我程序中数据库操作对象一直加载中，关闭，不释放，再开启那么报 "mismatch in datapacket" 错误。
报错代码段
  FClientDataSet.Active := True;
好怪，再研究一下。。