Вызов Delphi DLL из Oracle

Взято отсюда

----------------------------------Delphi (Ibdll.dll)------------------------------
library Ibdll; 
uses
  SysUtils,
  Classes;

function Sqrt2 (X: Integer): Integer; cdecl; export;
begin
  if X<0 then Sqrt2 :=  0 else Sqrt2 := X;
end;

exports
  Sqrt2;

begin
end.

------------------------------------------------------------------------------
CREATE OR REPLACE LIBRARY TESTLIB
    AS 'D:\Oracle\Ora90\Bin\Ibdll.dll'
/

------------------------------------------------------------------------------
CREATE OR REPLACE FUNCTION TestFunction(pl in BINARY_INTEGER) return binary_integer
as external
library testlib
name "Sqrt2"
parameters (pl int);

------------------------------------PL/SQL------------------------------------
declare
  v1 number;
begin
  v1 := TestFunction(-5);
  DBMS_OUTPUT.PUT_LINE(v1);
end;
/