list box

[ecfisa]

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.