UpdateSQL

[astaroth]

en un formulario en delphi tengo un ttable, un datasouce y un query
en el query tngo est codigo
insert into uno (clave, nombre, direccion)
values (:v1, :v2, :v3);

y en un boton de guardar tngo este codigo

QUERY1.Active:=false;
query1.ParamByName('v1').AsString:=Edit1.Text;
query1.ParamByName('v2').AsString:=Edit2.Text;
query1.ParamByName('v3').AsString:=Edit3.Text;
query1.ExecSQL;

pero me marca error alguien me puede ayudar?