Ошибка is not a valid floating point value

[Gul'ka]

У меня на форме есть ADOConnection, ADOTable, DataSource и DBGrid.
В Gride есть 1 вычисляемое поле Общая стоимость.
Код:

procedure TForm4.ADOTable1CalcFields(DataSet: TDataSet);
begin
ADOTable1.FieldByName('Общая стоимость').AsFloat:= ADOTable1.FieldByName('Ед_измерения_м_кв').AsFloat*ADOTable1.FieldByName('Цена').AsFloat;
end;

Компелирует все без проблем , но когда пытаюсь произвести добавление, то выскакивает ошибка :
Project Project.exe raised exception class EConvertError with message '"is not a valid floating point value ' Procces stopped. Use Step or RunTo continue.(и сразу выбрасывает на код вычисляемого поля)

Код добавления:

procedure TForm14.BitBtn1Click(Sender: TObject);
begin
If LabeledEdit1.Text='' Then
   MessageDlg('Введите данные в поле Код',mtInformation,[mbOK],0)
 else

  If LabeledEdit2.Text='' Then
 MessageDlg('Введите данные в поле ФИО',mtInformation,[mbOK],0)
 else
  If LabeledEdit3.Text='' Then
 MessageDlg('Введите данные в поле Телефон',mtInformation,[mbOK],0)
 else
  If LabeledEdit4.Text='' Then
 MessageDlg('Введите данные в поле Заказ',mtInformation,[mbOK],0)
 else
   If LabeledEdit5.Text='' Then
 MessageDlg('Введите данные в поле Ед_измерения_м_кв',mtInformation,[mbOK],0)
 else
  If LabeledEdit6.Text='' Then
 MessageDlg('Введите данные в поле Цена за метр',mtInformation,[mbOK],0)
 else 
begin
 Form4.ADOTable1.Insert;
   Form4.ADOTable1.FieldByName('Код').AsString:=LabeledEdit1.Text;
  Form4.ADOTable1.FieldByName('ФИО').AsString:=LabeledEdit2.Text;
 Form4.ADOTable1.FieldByName('Телефон').AsString:=LabeledEdit3.Text;
  Form4.ADOTable1.FieldByName('Заказ').AsString:=LabeledEdit4.Text;
  Form4.ADOTable1.FieldByName('Ед_измерения_м_кв').AsString:=LabeledEdit5.Text;
  Form4.ADOTable1.FieldByName('Цена').AsString:=LabeledEdit6.Text;
end;
end;

Помогите пожалуйсто...

[Valio]

Ставь брекпоинт на входе и жмякай F8 пока не найдёшь где происходит попытка присвоить "не число".

[Gul'ka]

Сообщение от Valio

Ставь брекпоинт на входе и жмякай F8 пока не найдёшь где происходит попытка присвоить "не число".

выбивает ошибку в этом месте:

procedure TForm4.ADOTable1CalcFields(DataSet: TDataSet);
begin
ADOTable1.FieldByName('Общая стоимость').AsFloat:= ADOTable1.FieldByName('Ед_измерения_м_кв').AsFloat*ADOTable1.FieldByName('Цена').AsFloat;
end;

Хотя расчет производиться

Спасибо за ответы...
Но я нашла проблему сама)