s:=StringReplace(s,',','.',[rfReplaceAll, rfIgnoreCase]);//заменяем запятую точкой if s[1]='.' then Insert('0',s,1);//если первый символ ".", то спереди ставим 0