procedure log(ARef: PAnsiChar; ACateg: Int32); cdecl;
var
  str: string;
begin
  str := 'Log: ' + IntToStr(ACateg) + ' ' + ResultToString(ARef);
  OutputDebugString(PChar(str));
end;
...
  FLib := LoadLibrary(PWideChar(AFileName));
  if FLib = 0 then
    raise Exception.CreateFmt('Не удалось загрузить библиотеку %s : %s', [AFileName, SysErrorMessage(GetLastError)]);
  try
    FInitFunc := GetProcAddress(FLib, 'init');
    FCallFunc := GetProcAddress(FLib, 'callFunc');
    if not Assigned(FInitFunc) then
      raise Exception.CreateFmt('Библиотека %s не содержит функцию %s', [AFileName, 'init']);
    if not Assigned(FCallFunc) then
      raise Exception.CreateFmt('Библиотека %s не содержит функцию %s', [AFileName, 'callFunc']);

    FInitFunc(@newMemory, @ACallBackFunc, @log);