sql.text:='update conyuge set apellido= :apellido, nombre= :nombre fecha_nacimiento= :fechanacimiento, dni= :dni where id_conyuge= :r';
sql.parambyname('apellido').asstring:= apellidoedit.text;
sql.parambyname('nombre').asstring:= nombreedit.text;
sql.parambyname('fecha_nacimiento').asdatetime:= fechanacimientodatetimepicker.datetime;
sql.parambyname('dni').asstring:= dniedit.text;
sql.parambyname('id').asinteger:= r;
execsql;