1、1）FILE—>NEW—>OTHER，选择DLL。
2）FILE-->NEW-->UNIT。然后写代码。在interface 后面加入
function countnum(i:integer):integer;export;
在implementation后面写函数的代码。
3）在DLL的project文件里面的{$R *.res}后面加上exports countnum;
调试成功以后 会生成一个 project1.dll 文件
2、调用DLL的方法：在unit 部分编写代码时implementation 前面写入一句function countnum(i:integer):integer;far;external ‘Project1.dll‘;
原文：http://www.cnblogs.com/themore/p/3905248.html