[Thrasher]

Переопредели значение DecimalSeparator.
Пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var F:Real;
begin
DecimalSeparator:=':'; // Меняем разделитель на ":"
F:=StrToFloat(Edit1.Text);
DecimalSeparator:=',';// Меняем разделитель на ","
ShowMessage(FloatToStr(F+1));
end;