delphi 正则表达式匹配一个公司名？

Question

delphi 正则表达式匹配一个公司名？
如：上海XX实业公司
浙江中石化有限责任公司
东润集团

只要包含，公司，集团，有限公司，责任公司的，都视为公司名。
求代码

Answer 1

 //Delphi接触的不多，用C#大概写一下，看个思路就好，这里正则不太合适
string[] label={"公司","集团"};
string str=Console.ReadLine("请输入：");
bool IsMatch=false;
foreach (string i in label)
{
        if (str.Contain(i)) 
        {
                IsMatch=true;
                break;
        }
}
if (IsMatch) Console.WriteLine(string.Format("{0}是公司名称！"),str);
else Console.WriteLine(string.Format("{0}不是公司名称！"),str);