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.