Простой пример DLL

library
 MyDll;

uses
 Windows;

function
 SomeFunc(I: Integer): Integer; stdcall
;
begin

  if
 Odd(I) then
 
    Result := 3 * I + 1
  else
 
    Result := I div
 2;
end
;

exports

  SomeFunc;

begin

end
.

И вот модуль импорта, который вы можете включить в любой проект, которому необходим доступ к функциям DLL:

unit
 MyDllImport;

interface


uses
 Windows;

function
 SomeFunc(I: Integer): Integer; stdcall
;

implementation


function
 SomeFunc; external
 'mydll.dll';

end
.

Другое по теме:

• Надо подключить DLL и использовать некоторые ее функции
• DLL - убийственная утилита
• DLL и ресурсы