var
hDLL: THandle;
begin{...}// acceder al handle de la librería
hDLL := GetModuleHandle(aName);
// la ha encontrado?
if (hDLL <> 0) then
FreeLibrary(GetModuleHandle(PChar(FileName)));
{...}
Yo te permito lo que tú quieras Neftali, ahora bien, ¿cuántos "GetModuleHandle" ves tú en el código de más arriba?