function prover(N: Integer): Integer; stdcall;
   begin
      MessageBox( 0 ,'Вызвана функция','Первая dll',mb_OK);
      Result:= N* 3 ;
  end;

PACKAGE test_dll IS
 function prover (n number) return number;
END;

PACKAGE BODY test_dll IS
    test_dll_lhandle   Ora_Ffi.Libhandletype ;
    prover_fhandle  Ora_Ffi.Funchandletype ;
 
   function ff_prover (pfhandle Ora_Ffi.Funchandletype,n number)
     return number;  
   PRAGMA interface(C, ff_prover,  11265 ); 
 
   FUNCTION prover(n number) RETURN NUMBER IS
      BEGIN 
         RETURN(ff_prover(prover_fhandle,n)); 
   END;

 Begin
     begin
        test_dll_lhandle := Ora_Ffi.Load_Library('C:\WINNT\SYSTEM\', 'raaaa.dll');
        prover_fhandle:=Ora_Ffi.Register_Function(test_dll_lhandle, 'prover', Ora_Ffi.PASCAL_STD);
       Ora_Ffi.Register_Parameter (prover_fhandle,Ora_Ffi.C_INT);
       Ora_Ffi.Register_Return (prover_fhandle, Ora_Ffi.C_INT);
      
      exception
         when ora_ffi.FFI_ERROR then
   	  Msg_alert('Библиотека не загружена', 'W', false);
   end; 
   
  END;

declare
   temp  number ;
   t number;
   a number;
begin
       t:=test_dll.prover( 4 );	
       Message(t);  
       Message(t); 
end;