with dm.qadulto do
try
Close;
SQL.Clear;
Params.CreateParam(ftMemo, 'x1', ptnknown).AsMemo := memo5.Text;
SQL.Add('update nino set pad = :x1');
SQL.Add('where cve_cte = :cv');
ParamByName('cv').Value := cni;
ExecSQL
except
ShowMessage('Ocurrió un error actualizando datos')
end