简单的DLL问题

Question

DLL程序如下：
library Project2;
uses
  SysUtils,
  Classes;{$R *.res}
function addnumber(n,n2:integer):integer;stdcall;
 begin
  result:=n+n2;
 end;
 exports
 addnumber index 1;
begin
end.我的调用程序如下：
procedure TForm1.Button2Click(Sender: TObject);
var
 onhandle:Thandle;
begin
 onhandle:=loadlibrary('project2.dll');
  try
  if OnHandle <> 0 then
   @addnumber:=getprocaddress(onhandle,'addnumber');
if @addnumber<> nil then
showmessage(intToStr(AddNumber(1,2)))
else
RaiseLastWin32Error;
finally
FreeLibrary(OnHandle);
end;end;就这么简单，可是总是说我的addnumber没有定义；

Answer 1

在 interface下
type
   Taddnumber=funcation(n,n2:integer):integer;stdcall;
end;

Answer 2

同意楼上，然后再定义变量addnumber: Taddnumber;