1. File/New/Other/DLL Wizard/Ok

2.

library Project2;
uses
SysUtils,Classes;
{$R *.res}
begin
end.

3. Сохранение проекта dll- File/Save All

4. library FirstDLLProject;
uses
SysUtils,Classes;
function Summ(X,Y:Integer):Integer;StdCall;
begin
Result:=X+Y;
end;
exports Summ;
{$R *.res}
begin
end.

5. Компиляция dll

6. procedure TForm1.Button1Click(Sender: TObject);
var
h:integer;
begin
h:=Summ(10,34);
Application.MessageBox(PChar(IntToStr(h)), 'Результат = ');
end;

7,1 в разделе var
function Summ(X,Y:Integer):Integer;
stdcall;

7,2 после implementation
function Summ(X,Y:Integer):Integer;
external 'FirstDLLProject.dll' name 'Summ';

8. Компиляция проекта

---