Fórum Ajuda com DLL #385685

Olá pessoal estou iniciando em DLLs e gostaria de saber o que estou fazendo de errado nesta, ou se é possível fazer isso. Agradeço desde já     library SoNumero;   uses
  SysUtils,
  Classes; {$R *.res}   function IsDigit(texto: ShortString): boolean;
function SoNumeros(texto : ShortString) : ShortString; stdcall; export;
var
  Ind    : Integer;
  TmpRet : String;
begin
  TmpRet := '';
  for Ind := 1 to Length(Texto) do
  begin
    if IsDigit(Copy(Texto,Ind,1)) then
      TmpRet := TmpRet + Copy(Texto, Ind, 1);
  end;
  Result := TmpRet;
end;   function IsDigit(texto: ShortString): boolean;
begin
 result := true;
 try
   StrToInt(Texto);
 except
   result := false;
 end;
end;   exports
  SoNumeros index 1;   begin end.