Использование Dll

[xmaksimca]

Здравствуйте!
Подскажите правильно ли я перенес вот эту функцию в Dll библиотеку.

function GetAfter(substr, str:string):string;
begin
if pos(substr,str)>0 then
  result:=copy(str,pos(substr,str)+length(substr),length(str))
else
  result:='';
end;

library GetAfter;
 
uses
  SysUtils,
  Classes;
 
{$R *.res}
 
function GetAfter(substr, str:pchar):pchar;stdcall;
begin
if pos(substr,str)>0 then
   result:=strpas(copy(str,pos(substr,str)+length(substr),length(str)))
else
  strpas(result:='');
end;
exports getAfter;
begin
end.