procedure LoadSecurity( Path, Rotina : PChar; Tag : Integer);
var
  FHandle : THandle;
  FRoutine : procedure(Path : TFileName; Tag : Integer);
begin
  FHandle := LoadLibrary(Path);
  try
    FRoutine := GetProcAddress(FHandle, Rotina);
    if (Assigned( FRoutine )) then
    begin
      try
        FRoutine(ExtractFilePath(Path), Tag);
      except on E: Exception do FreeLibrary(FHandle);
      end;
    end
    else
      raise Exception.Create('Dll não encontrada.');
 
  finally
    FreeLibrary(FHandle);
  end;
end;