А в чем проблема?
Если не планируется использование в других языках, то вообще все без проблем:
Библиотека
Код:
library mydll;
function ExtractString(Str : String) : String; stdcall;
begin
...
end;
exports ExtractString;
begin
end.
Вызов ("статика")
Код:
...
fnction ExtractString(Str : String) : String; stdcall; external 'mydll.dll';
...
var
S1, S2 : String;
begin
S1 := 'before(in)after';
S2 := ExtractString(S1);
ShowMessage(S2);
end;