[Guest]

MySeparator:Char='.'
SaveSeparator:char
SaveSeparator:=DecimalSeparator
DecimalSeparator:=MySeparator
.......
DecimalSeparator:=SaveSaparator

[RealRascal]

вообще говоря, для этих целей есть trystrtofloat() - по крайней мере, в delphi7.

Еще есть val() - возвращает номер неправильного символа в строке, которая предположительно является числом.

Если известно что строка гарантировано является числом, то я бы сделал так. В одной системе может быть установлен один разделитель, в другой - другой, и это либо точка, либо запятая. Можно заменить точку и запятую на DecimalSeparator - это функция возвращает разделитель в системе, т.е. какой бы ни был разделитель в системе, он заменит точку или запятую.

float1:=strtofloat(stringreplace(stringreplace(edit1.text,'.',decimalseparator,[]),',',decimalseparator,[]));