ERRO AO LIBERAR DLL NO WIN XP, PORQUE ?

type
  TIntFunction = procedure; stdcall;
  TVerFunction = function: PChar; stdcall;

procedure MinhaFuncao;
var
   HInstDLL: Integer;
   FPointerDLL: TFarProc;
   FuncDLLTex: TIntFunction;
   FuncDLLVer: TVerFunction;
begin
      // Carrega DLL
      cNomeDLL := cDirServer+´Exec\DLL\´+cNomeDLL+´.DLL´;
      HInstDLL := LoadLibrary(PChar(cNomeDLL));
      if HInstDLL <> 0 then
      begin
         try
            // Checa versão da DLL 
            FPointerDLL := GetProcAddress( HInstDLL, PChar(´ChecaVer´));
            if FPointerDLL <> nil then
            begin
               FuncDLLVer := TVerFunction( FPointerDLL );
               // Checa versão da DLL e da Tabela
               VerOK := ChecaVersao(FuncDLLVer);
            end;

            if VerOK then
            begin
               FPointerDLL := GetProcAddress( HInstDLL, PChar(´DLLFunc´));
               if FPointerDLL <> nil then
               begin
                  FuncDLLTex := TIntFunction( FPointerDLL );

                  // DLL executa função
                  FuncDLLTex;
               end
               else
                  ShowMessage(´Erro na pesquisa de Função´);
            end
            else
               ShowMessage(´Incompatibilidade de versões´#1310+
                           ´entre dados e texto!´);
         finally
            // Libera DLL
            FuncDLLVer := nil;
            FuncDLLTex := nil;
            FPointerDLL := nil;
            try // checar sistema operacional
               if fmLogon.nCheckOS = 1 then // para Win 98
                  FreeLibrary(HInstDLL);   // dando erro no XP E 2000
            except
               ShowMessage(´Erro na liberação do arquivo AML!´);
            end;
          end;
      end; 
end;