Ayuda con Listbox

[nuxbaster]

Muy buenos días, quiero me ayuden a revisar el código de sumar los elementos de un listbox,

var
valorSum:Double;
i:integer;

begin
valorSum := 0;

for i := 0 to ListBox1.Items.Count - 1 do
valorSum := valorSum + StrToFloat(ListBox1.Items[i]);
 label2.Caption:= FloatToStr(valorSum);

Valide el código y si me hace la suma de los valores del listbox cuando los pongo en las propiedades del listbox en string, pero quiero pedirles apoyo ya que los datos me los envía el puerto COM, y los añado al listbox cuando intento hacer la suma de dichos datos me manda is not a valid floating point value

Por su anticipado apoyo muchas gracias!