update erro com sql

o que tem de errado aqui?


procedure TForm_cadartigos.BitBtn2Click(Sender: TObject);
begin
edit1.Text:=Query1Artigo.AsString;
edit2.Text:=query1preco.AsString;
try
with query1 do
begin
close;
sql.Clear;
sql.Add(´update artigo set artigo = edit1.Text, preco = edit2.Text´);
ExecSQL;
end;
except
MessageDLG(´NÃO FOI POSSIVEL EDITAR ESSE REGISTRO´, mtinformation, [mbok], 0);
end
end;