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

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

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

 //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);

这个看上去可以用正则做，但是实际上不可行，因为公司名字本身和其它东西，在文字格式本身上没有什么区别，所谓的区别是语义上的。需要一个语义词库去匹配。
正则并不是万能的。

如果你的文本格式上有什么特征，比如公司名前有标点、符号、数字、空格。那么才可以用正则匹配。

可以考虑公司名前的符号数字等特征语义，再用语义词库去匹配。一个思路，祝好

这个看上去可以用正则做，但是实际上不可行，因为公司名字本身和其它东西，在文字格式本身上没有什么区别，所谓的区别是语义上的。需要一个语义词库去匹配。
正则并不是万能的

考虑公司名前的符号数字等特征语义，但是公司名字本身和其它东西没有什么区别，需要一个语义词库去匹配