Проблема с вычислениями в коде.

[Bane]

Если Brutto или Netto ввести меньше 100, выдаёт ошибку. Помогите разобраться, что не так?

VES и CENA_BRUTTO_BL глобальные переменные...

VES, CENA_BRUTTO_BL: real;

procedure TForm8.Button1Click(Sender: TObject);
var BRUTTO, NETTO, cena, cena_ing, CENA_BR: real;
    kod: string;
begin
BRUTTO:=StrToFloat(Edit1.Text);//Вес брутто для ингредиента
NETTO:=StrToFloat(Edit2.Text); //Вес нетто для ингредиента
cena_ing:=Form7.DBGrid1.DataSource.DataSet.FieldByName('Cena').AsFloat;//Цена за 100 грамм ингредиента

CENA_BR:=(BRUTTO/100)*cena_ing; //Цена брутто ингредиента

VES:=VES+NETTO; //Вес нетто для всех ингредиентов

CENA_BRUTTO_BL:=CENA_BRUTTO_BL+CENA_BR; //Цена за все брутто блюда

kod:=Form7.DBGrid1.DataSource.DataSet.FieldByName('Kod').AsString;
With Form7.ADOQuery2 do
  begin
  SQL.Clear;
  SQL.Add('UPDATE Sostav SET [Brutto]='+FloatToStr(BRUTTO)+' WHERE Kod='+kod+';');
  ExecSQL;

  SQL.Clear;
  SQL.Add('UPDATE Sostav SET [Netto]='+FloatToStr(NETTO)+' WHERE Kod='+kod+';');
  ExecSQL;

  SQL.Clear;
  SQL.Add('UPDATE Sostav SET [Cena]='+FloatToStr(CENA_BR)+' WHERE Kod='+kod+';');
  ExecSQL;

  SQL.Clear;
  SQL.Add('SELECT * FROM Sostav;');
  ExecSQL;
  Active:=true;
  end;

Form8.Close;
end;

[Slym]

Используй параметры в запросах - это в дальнейшем облегчает жизнь избавляя от непонятных глюков...
И достаточно одного запроса:

Form7.ADOQuery2.SQL.Text:='UPDATE Sostav SET Brutto= :Brutto, Netto= :Netto, Cena = :Cena WHERE Kod= :Kod;';
Form7.ADOQuery2.Parameters.ParamByName('Brutto').Value:= BRUTTO;
Form7.ADOQuery2.Parameters.ParamByName('Netto').Value:= NETTO;
Form7.ADOQuery2.Parameters.ParamByName('Cena').Value:= CENA_BR;
Form7.ADOQuery2.Parameters.ParamByName('Kod').Value:= Kod;
Form7.ADOQuery2.ExecSQL;

[northener]

Поле Kod какого типа?