sumar los valores de un listbox

[ecfisa]

Hola rufo.

Lo que te sugiere Casimiro creo, es quitarlos para operar con ellos. No te altera para nada la muestra del resultado.
Supongamos (no lo especificas), que tu separador de miles es la coma y de decimales el punto.

Entonces sería:

Código Delphi [-]
procedure TForm1.Button9Click(Sender: TObject);
var
  aux: string;
  suma: Extended;
  v_conta: Integer;
  i: Integer;
begin
  DecimalSeparator:= '.';
  ThousandSeparator:= ',';
  suma := 0;
  for i := 0 to listbox14.Items.Count - 1 do
  begin
    aux:= ListBox14.Items[i];
    Delete(aux,Pos(',',aux),1);
    suma := suma + strToFloat(aux);
    Inc(v_conta);
  end;
  Label28.Caption := floatToStrF(suma,ffNumber,20,2);
end;

Fijate que la operación de borrado se hace sobre la variable auxiliar 'aux' y no afecta para nada el formato original.

Saludos.