procedure TForm1.LabeledEdit1KeyPress(Sender: TObject; var Key: Char); //контроль ввода
begin
If not (Key in ['0'..'9', '+', '-', ',', #8]) //несоответствие алфавиту вещественных чисел
then key:=#0 ; //подмена недопустимого символа пустым значением

end;