delphi截取特定符号内字符串函数