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