[AND_REY]

Вот написал работает.

Код DLLки:

Код:

Library MyDLL;

Uses
 SysUtils, Dialogs;

Procedure MyProcedure(N: Integer);
begin
 ShowMessage(IntToStr(N));
end;

Exports
 MyProcedure;

begin
end.

Код Программы:

Код:

Procedure MyProcedure(N: Integer);
 external 'MyDLL.dll' name 'MyProcedure';

procedure TForm1.Button1Click(Sender: TObject);
begin
MyProcedure(56);
end;