abfun:=MakeInstance(findfunction("ab")); //获得ab函数的指针
abfunbind:=function(a:double;b:double;c:integer):double;external abfun;
Echo ##abfunbind(10,20,30),"  ----\r\n";
abfunbind:=nil;//可以通过指定该定义为空进行释放
DeleteInstance(abfun);//也可以通过模型删除该指针进行释放

function ab(a:double;b:double;c:integer):double;
begin
 return a*b+c;
end;