added strin and strisoneof to soutils.pas