no actualiza un campo correctamente ( decimal)

[AdrianD]

por que cargarlo de esa maner???
Lo mejor seria con un parametro

with datos.qryModifica do begin
SQL.Add('UPDATE articulos SET PRECIO1 = :Precio');
SQL.Add('WHERE clave = 7507');
ParamByName('Precio').AsCurrency := StrToCurr(precio.Text);
ExecSQL;
end;
ExecSQL;
end;