不对啊，调试通了，算不对。
var
dll:Cardinal;
pp:function(x,y:integer):integer;
begin
dll:=LoadLibrary(PChar(‘xx.dll‘));
if dll<>0 then
begin
@pp:=GetProcAddress(dll, ‘abc‘);
if @pp<>nil then
Edit3.Text:=inttostr(pp(strtoint(Edit1.Text),strtoint(Edit2.text)));
FreeLibrary(dll);
end;
end;
原文：http://www.cnblogs.com/westsoft/p/5935725.html