Hola.
Seguramente la conversión de alguno de los items no dá como resultado un número válido.
Para sumar los items podés hacer:
Código Delphi
[-]
function SumarItems(LB: TListBox): Double;
var
i: Integer;
v: Double;
begin
for i:= 0 to LB.Items.Count -1 do
begin
if TryStrToFloat(LB.Items[i],v) then
Result:= Result + v
else
raise Exception.Create('El item '+IntToStr(i+1)+' no es un número válido');
end;
end;
Llamada:
Código Delphi
[-]
...
begin
ShowMessage(FloatToStr(SumarItems(ListBox1)));
end;
Saludos.