lazarus 调用例子

[loadymf]

调用声明：
procedure Init; external 'DdddOcr.dll' name 'Init';
procedure Shutdown; external 'DdddOcr.dll' name 'Close';
function Classification(aa: pchar): pchar; external 'DdddOcr.dll';

formcreate 事件增加：
init();
调用例子：
ProgramDirectory := ExtractFilePath(ParamStr(0));
fn:=ProgramDirectory+'yzmPic\captcha_1.jpg';
memo2.lines.Add(fn);
base64str:=PicToBase64(fn);//这里文件转成base编码
memo2.lines.Add(base64str);
recstr:= Classification(pchar(base64str));//传入参数与返回参数均为pchar类型
memo2.lines.Add(recstr);
formclose事件增加：
Shutdown;
问题其它模型如何引用？