[ZPS]

Есть кусочек кода в котором я пытаюсь понять почему не получается из строки получить число с точкой.

Код:

var
  a : array[1..20] of string[20];
  testvar : Double;
  temp : string;

Код:

  a[3]:='5624.6873';
  a[3][5]:=','; //исправить разделитель
  tmp:=a[3];
  testvar:=StrToFloat(tmp);

отладчик показывает, что testvar получается 4,668.....е..
если убрать лишнюю строку и написать просто StrToFloat(a[3]), то testvar будет 7,23....

В моём понимании, должно получиться testvar=5624,6873

Что я делаю не так?