怎么把取到的字符的竖线去掉。(10分)

这是取值的代码：
with TStringList.Create do try
Text := form1.IdHTTP4.Ge('http://www.xxx.com');
if Count > 5 then
begin
form1.edit6.Text:= Copy(Strings[Count - 10], 7, 5);
end;
finally
Free;
end;
网站上的原码是这样格式（取了部分）
85.11|85.29|---| 我取的是85.29位置的值，，

问题是：
如果小数位数是两位的话，没问题，
但，哪果小数位是一位，的话，，就会把后面的‘|’这个竖线也取下来了，

有什么办法，在小数位为1位时，取不到那条线，，

或者在小数位是1位时，把取下来的‘|’，用0替换掉也行，

试着做了做，可是没成功。

要怎么做呢？

iPos := Pos('|',sValue);
sResult1 := Copy(sValue,1,iPos-1);
Delete(sValue,1,iPos);
iPos := Pos('|',sValue);
sResult2 := Copy(sValue,1,iPos-1);

比如：
uses SysUtils;
var
tempStr : string;
tempStr := '85.11|';//取到的串值
tempStr := StringReplace(tempStr,'|','0',[rfReplaceAll]);
就OK了

thank you