SQL.Add('UPDATE unidades SET nombre = :nom, cuenta = :cla, nombre2 = :nom2, fecha_umov = :FechU ');
SQL.Add('WHERE clave = :Clave1');
Parambyname('nom').Value:= txtNombre.Text;
Parambyname('cla').Value:= txtClave.Text;
Parambyname('nom2').Value:= scateg;
Parambyname('FechU').Value:= FormatDateTime('mm/dd/yyyy',Date);
Parambyname('Clave1').Value:= IntToStr(iClave);
ExecSQL;