sumar los valores de un listbox

[rufo]

Hola amigos aqui con una pequeña espinita que traigo, resulta que quiero sumar los valores de un listbox y que me los muestre en un label pero me manda el siguiente error "Is not a valid floating point value" en el cual los valores que tengo en el listbox son valores separados con la coma y el punto es decir son cifras miles entonces ya viendo en el foro no encontre algo certero ya cambie mi configuracion regional y sigue el mismo error entonces queria ver si me echan una manita de favor, les anexo el codigo

procedure TREPORTES.Button9Click(Sender: TObject);
var
suma: Extended;
v_conta:integer;
begin
suma := 0;
      for i := 0 to listbox14.Items.Count - 1 do
      suma := suma + strToFloat(listbox14.Items[i]);
      label28.Caption := floatToStrF(suma,ffNumber,20,2);
      v_conta:=v_conta+1;
end;

Les comento que uso delphi 2007 y un sistema operativo de windows 7, de antemano gracias.

[Casimiro Notevi]

Si he entendido bien, tienes los números con comas y puntos. Debes quitarlos.

[rufo]

Gracias amigo por responder pero no quiero quitarlos ya que mi aplicacion me pide que tenga el resultado con comas y puntos.

[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.

[rufo]

Aaaah ya es cierto lo que me comentaron ya quedo resuelto el problemilla y mil gracias por responder y ayudarme, saludos.