请大家给我一个动态调用DLL的例子？(50分)

谢谢
并给你们介绍一个社区
新开的大型综合社区
华维科技--现代人综合娱乐社区
http://www.huaweinet.com
新闻，电影，娱乐，聊天，下载，软件，贴图，音乐，成人，供求信息等
贴子任你发，图片随意贴
欢迎您的光临 现正招各版版主及社区副总版

up

经典的例子：
Dll工程文件：
library DllPj;
uses
SysUtils,
Classes;
{$R *.RES}

function Plusnum(X,Y:Integer):Integer;stdcall;
begin
Result:=X+Y;
end;
exports
Plusnum index 1;
begin
end.

测试用的工程文件：
unit dllUnit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
function Plusnum(X,Y:integer):integer;stdcall;external 'DllPj.dll';
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
showmessage(Inttostr(Plusnum(Strtoint(Edit1.text),strtoint(Edit2.text))));
end;

end.

多人接受答案了。