MiDS.Close; MiDS.Open; MiDS.Append; MiDSID.AsInteger := 1; MiDSNombre.AsString := 'x'; MiDS.Post; miTransaction.CommitRetaining;