delphi 查找有几个括号扩住的内容