if Pos(DecimalSeparator,strV)=0 then 
	strV:= Copy(strV,1,Pos('.',strV)-1)
	 +DecimalSeparator
	 +Copy(strV,Pos('.',strV)+1,Length(strV)-Pos(DecimalSeparator,strV));