Ошибка при импорте процедуры

[Kronos913]

Function DllProcedureLoad(const DllName, ProcedureFunctionName: PChar; Handle1: pTHandle; var PointerProcedureFunction:Pointer): boolean;
begin
  try
    Handle1^ := loadLibrary (DllName);
    if Handle1^ <> 0 then begin
      PointerProcedureFunction:=getProcAddress ( Handle1^, ProcedureFunctionName );
      Result:= (addr(PointerProcedureFunction^) <> nil);
    end else Result:=false;
  except
    Result:=false;
  end;
end;

Вот таким вот кодом импортирую процедуру. Функция даёт положительный результат, но при этом выскакивает ошибка. В чем проблема?

[evg_m]

Функция даёт положительный результат

т.е. нормально дает какой-то указатель (Pointer).

а когда я пытаюсь использовать данный указатель(ВЫЗВАТЬ процедуру)

но при этом выскакивает ошибка

ну и...?
нет ни использования, ни описания данной процедуры.