创建并调用 DLL

//通过 DLL Wizard 建立：
library TestDLL;
uses  SysUtils,  Classes,  Dialogs;
{$R *.res}
//建立过程
procedure Test;
begin  
ShowMessage('TestDLL.Test');
end;
//输出
exports  Test;
begin
end.

//在其他工程调用，如果不在一个工程组，需要在相同目录下、System32下或指定路径；
//声明可以在实现区或接口区，这里的函数名要一致，甚至大小写。
//调用测试：
procedure Test; external 'TestDLL.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin  
Test;
end;