Gracias por la atencion prestada, ya he resuelto mi problema es que en lugar de enviar un parametro de tipo .asMemo lo cambie por un Parametro de tipo asBlob y mi consulta quedo asi
Código Delphi
[-]
with dm.qadulto do begin
close;
sql.Clear;
sql.add('update nino set motivo=:0');
SQL.Add('WHERE cve_cte=:cv');
parambyname('cv').Value:=cni;
parambyname('0').AsBlob:=mc.Text;
execsql;
end;