======================================================================
工程中引用implementation
//引用mathdll.dll文件
function add1(x,y:integer):integer;stdcall:external'mathdll.dll' name'add1';
function Sub1(x,y:integer):integer;stdcall;external'mathdll.dll' name 'Sub1';
//======================================================================
函数过程
mathdll.dll生成成功,就是引用时出错了如下:
1)edit3.Text:=inttostr(Add1(x1,y1));
[错误] Unit1.pas(49): Undeclared identifier: 'Add1'
2) edit4.Text:=inttostr(sub1(x1,y1));
[错误] Unit1.pas(50): Undeclared identifier: 'sub1'
3)  Unit1 in 'Unit1.pas' {Form1};
[致命错误] CALL_ADDSUB.dpr(5): Could not compile used unit 'Unit1.pas'