[stil]

помогите с dll.
код формы

Код:

implementation
function SUM(n,m: integer): integer; stdcall;
external 'Project2.dll' name 'SUM';  

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,res: integer;
begin
a:=strtoint(Edit1.Text);
b:=strtoint(Edit2.Text);
res:=SUM(a,b);
Label1.Caption:=PChar(inttostr(res));
end;

код DLL

Код:

uses
  SysUtils,
  Classes;

{$R *.res}
function SUM (var n, m: integer): integer; stdcall;
begin
  result:=n+m;
end;

exports SUM;

begin
end.

выдает ошибку
Безымянный.JPG

[Bargest]

мб так?

Код:

exports SUM name 'SUM';