Ошибка синтаксиса в инструкции UPDATE

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;

SQL.Add('UPDATE Sostav SET [Brutto]="'+FloatToStr(BRUTTO)+'" WHERE Kod="'+kod+'")');