pascal怎么截取字符串

pascal如何截取字符串
目标字符串为：c:\program files\公司名\产品名

我想获取：公司名

产品名

分别保存到2个不同的变量中。

别用操作系统的api，

因为我是用inno setup，这个支持pascal脚本， 
api我肯定无法调用它!!!

求代码

[解决办法]
从后向前循环，找 \ 呗
[解决办法]
这种路径格式固定吗？
会有类似下面的情况么
c:\program files\公司名\产品名\圈圈叉叉\
c:\program files\圈圈叉叉\公司名\产品名\
d:\圈圈叉叉\公司名\产品名\
[解决办法]
extractfilename
extractfiledir
结合用就行了
[解决办法]
DelimitedText 函数，把Delimiter设置为'\'即可把字符串以'\'为间隔分为若干部分，取最后两个即可
[解决办法]

const
  str = 'c:\program files\圈圈叉叉\公司名\产品名\';
var
  sLi: TStringList;
begin
  sLi := TStringList.Create;
  ExtractStrings(['\'], [], str, sLi);
  ShowMessage(sLi[sLi.Count - 1]); // 产品名
  ShowMessage(sLi[sLi.Count - 2]); // 公司名
  sLi.Free;
end;