Здравствуйте, Oricardo!
Компилятор выдаёт ошибку, потому что в качестве разделителя целой и дробной частей в Delphi используется точка.
Можете просто получать строку с числом и заменять в ней точку на запятую (если введена точка) или оставлять строку как есть, есть запятой в ней нет.
Пример удаления запятой в приложении.
Удачи!

Приложение:
var s : string;begin if pos(‘,‘,s)>0 then begin insert(‘.‘,s,pos(‘,‘,s)); delete(s,pos(‘,‘,s),1); end;// теперь s - строка с точкой вместо запятойend;

Здравствуйте, Oricardo!
Используй конструкцию try-except для перехвата ИС:

try
Операторы, где возможна ИС;
except
Операторы, которые должны быть выполнены в случае ИС;
end;

Здравствуйте, Oricardo!
Можно так:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = ‘.‘ then Key:= ‘,‘
end;

Здравствуйте, Oricardo!
В приложении в LabelEdit можно ввести только корректный Float

Приложение:
procedure TfmOptions.leMapXPropKeyPress(Sender: TObject; var Key: Char);var ch1, ch2: PChar; s1,s2: String;begin if not (key in [‘0‘..‘9‘,#8,DecimalSeparator]) then key := #0; s1 := TLabeledEdit(Sender).Text; ch1 := PChar(s1); s2 := key; ch2 := PChar(s2); if (key = DecimalSeparator) and (AnsiStrPos(ch1,ch2) <> nil) then key := #0; if (key = DecimalSeparator) and (s1 = ‘‘) then key := #0;end;

Здравствуйте, Oricardo!
function ReplaceStr(str:string):string; // замена запятой на точку
var
ix:integer;
sx:string;
res:string;
begin
ix:=Pos(‘,‘,str);
if ix<>0 then str[ix]:=‘.‘;
ReplaceStr:=str;
end;