delphi 查找字符串，没有思路了？

Question

江苏省苏州市昆山市朝阳北路88号林市大厦6楼；
上海市闵行区龙吴路1100弄111号；
安徽省阜阳市太和县插花镇胡海庄50户-2；

有没有一个含税可以返回上面地址的，省、市、区、县、镇，镇后面的统一为地址。
尤其是第一个地址比较难搞啊，里面有多个市不好判断额，老师们给个例子学习下。