library lib_name;
uses classes, sysutils;
{$r *.res}
begin

function b(a: string)
begin
end;

exports b;
end.

// а из программы ее можно вызывать так:
function b(a: string); external 'lib_name.dll';