(Delphi) Ошибка StrToFloat

[darkduelist]

Вроде простая программа а вызвала кучу проблем. Есть файл формата CSV c которого надо считать информацию и выполнить пару действий.
Ошибка вылетает при попытке перевести число из ячейки при помощи StrToFloat. Ошибку и часть кода написал, также прикрепил файлы с программой и фалом(т.к. формат CSV загрузить нельзя я добавил файл в архив).

Project Project1.exe reised exception class EConvertError with message "-0.032000000000' is not a valid floating point value'. Process stopped.

procedure TForm1.Button1Click(Sender: TObject);
//const
  //DecimalSeparator = '.';
var
  i : Integer;
  sum : Real;
begin
  sum:=0;
  //ShowMessage(form1.StringGrid1.cells[3,0]);
  for i:=0 to form1.StringGrid1.RowCount-1 do
  sum:=sum+StrToFloat(form1.StringGrid1.cells[3,i]);//тут ошибка
  Soprativ.Caption:=FloatToStr(sum/i);
end;

[Базиля]

Покажите содержимое ячеек.

[romlo]

Разделитель целого и дробного должна быть запятая.

[darkduelist]

Пример:
(0,3) = -0.032000000000
(1,3) = -0.031980000000
(2,3) = -0.031960000000
Сам файл с данными находится в TEK0001.zip.

romlo, то есть мне надо во всех числах заменить '.' на ','?

[romlo]

Можно сделать так:

for i:=0 to form1.StringGrid1.RowCount-1 do
  begin
  s := form1.stringGrid1.cells[3,i];
  s[Pos('.',s)] := DecimalSeparator;
  sum:=sum+StrToFloat(s);
  end;

Только надо добавить в начале

var s : string;

[Базиля]

darkduelist
Да, или преобразовывай в коде точку в запятую.

[darkduelist]

romlo, спасибо работает! ОГРОМНОЕ СПАСИБО!!!!!!!!