Delphi - correjir update

query1.Close;
query1.SQL.ADD('UPDATE BLIBROS set AREA='+QuotedStr(edit1.text)+',');
query1.ExecSQL;
query1.Refresh;
que me falta despues de update dice que falta algo token 2 que falta? gracias no reconoce la tabla

Te sobra la coma al final

query1.SQL.ADD('UPDATE BLIBROS set AREA='+QuotedStr(edit1.text)+',');

corregido

query1.SQL.ADD('UPDATE BLIBROS set AREA='+QuotedStr(edit1.text));