关于字符串的分割 ( 积分: 100 )

有字符串如下:
ICCardNo=9988812$$ICID=320520197802124211$$ICUCode=123456$$ICName=张三$$ICSex=1
我想达到
将9988812、320197802124211、123456、张三、1这几个数值放入拉lable控件显示
请问如何解决?

ExtractStrings(['$'], ['$', '=', 'a'..'z', 'A'..'Z'], PChar(ICCardNo), tmpStrings);

ICCardNo=9988812$$ICID=320520197802124211$$ICUCode=123456$$ICName=张三$$ICSex=1

这一行的值是否能确定下来 即以后的样式也是这样呢?
我的想法是 要取5个字符串 每个字符串两个值 一个起始位置 一个字符长度
首先用POS函数找到这几个值 然后再用COPY函数取
有点笨 就算是抛砖引玉 表砸到我 闪人

var
sTmp:String;
slTmp:TStringList;
begin
Memo1.Lines.Clear;
sTmp:='ICCardNo=9988812$$ICID=320520197802124211$$ICUCode=123456$$ICName=张三$$ICSex=1';
slTmp:=TStringList.Create;
try
ExtractStrings(['$'], ['$', '=', 'a'..'z', 'A'..'Z'], PChar(sTmp), slTmp);
Memo1.Lines.Add(slTmp.Text);
finally
slTmp.free;
end;
end;