调用dll问题 (50分)

我想调用dll中的函数如下：
procedure Tsqxtfrm.N2Click(Sender: TObject);
var user:string;
yyid:string;
lib:thandle;
fun:function:boolean;
begin
user:=denglu.yhm
yyid:=denglu.yymc
lib:=loadlibrary('fnbjdll.dll')
//»ñµÃ¶¯Ì¬º¯ÊýµÄµØÖ·
fun:=getprocaddress(lib,'fnbjini(userchar;yyidchar)')
//¸ù¾ÝµØÖ·£¬µ÷Óö¯Ì¬º¯Êý
fun;
freelibrary(lib);
end;
但出错，当我吧该函数改为过程，则正确
谁能告诉我如何正确调用该函数。

Dll中函数是什么样子的？

up