delphi 文本内容操作

文本1内容：

0001,09-15-2009,11:29AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,>=1.030,,BLO,Negative,,pH ,5.0,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,*0002,09-14-2009,11:30AM,,,,,,,Multistix 10 SG,NOT ENTERED,NOT ENTERED,GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,<=1.005,,BLO,3+,*,pH ,5.5,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,*

文本2内容：

INSERT:Mydate:::Multistix^^^^0001^GLU^Negative^Negative^^^
Multistix^^^^0001^BIL^Negative^Negative^^^
Multistix^^^^0001^KET^Negative^Negative^^^
Multistix^^^^0001^SG^1.025^1.025^^^
Multistix^^^^0001^BLO^2+^2+^^^
Multistix^^^^0001^pH^5.5^5.5^^^
Multistix^^^^0001^PRO^1+^1+^^^
Multistix^^^^0001^URO^3.2^3.2^^^
Multistix^^^^0001^NIT^Negative^Negative^^^
Multistix^^^^0001^WBC^1+^1+^^^
Multistix^^^^0002^GLU^Negative^Negative^^^

………………………………

………………………………

………………………………

这里有两个文本的内容，文本1是我的原始数据，文本2是我需要转换的格式，使用delphi语言要如何才能做到这样的数据的保存？？？？能帮我解决的，可以再加分！谢谢！

var
a:string;
stringlist:TstringList;
begin
a:='GLU,Negative,,BIL,Negative,,KET,Negative,,SG ,>=1.030,,BLO,Negative,,pH ,5.0,,PRO,Negative,,URO,3.2 umol/L,,NIT,Negative,,WBC,1+,*';
StringList:=TStringList.create;
ExtractStrings([',,'],[],PChar(a),StringList);
ShowMessage(StringList.text);
StringList.Free;
end;

结合pos函数和leftstr、rightstr等函数使用！