Fórum DLL dinâmico com Win2000 #183177

Estou tentando chamar uma DLL com o seguinte código:

// Carrega DLL
cNomeDLL := ListaDLL.Strings[a];
HInstDLL := LoadLibrary(PChar(cNomeDLL));
if HInstDLL <> 0 then
begin
try
cTexto := ´´;

// Checa versão da DLL
FPointerDLL := GetProcAddress( HInstDLL, PChar(´FuncDLL1´));
if FPointerDLL <> nil then
begin
FuncDLLVer := TVerFunction( FPointerDLL );
cVersao := FuncDLLVer;
end;
finally
// Libera Função de DLL
FuncDLLVer := nil;
FuncDLLTex := nil;
FPointerDLL := nil;
end;

// Libera DLL
FreeLibrary(HInstDLL);

Neste ponto o sistema trava. No Win98 e 95 funciona bem.

Agradeço qualquer ajuda.

Eduardo Quadrado