How to add GContact to the MyContacts group

VCL TMS VCL Cloud Pack
1

I can add contacts to GContacts but they do not appear in MyContacts.

I tried several ways to add the MyContacts group to the newly added contact but was not successful.
Has anybody a code example on how to add a contact and at the same time adding it to the MyContacts group?
2

Are you using the way as shown in the demo:


var
    gc: TGContant;

    gc := TMSFMXCloudGContacts1.Contacts.Add;
    gc.FirstName := edFirstName.Text;
    gc.LastName := edLastName.Text;
    gc.Nickname := edNickName.Text;
    gc.JobTitle := edJob.Text;
    gc.Company := edCompany.Text;
    gc.BirthDay := dpBirthDay.Date;
    gc.Notes := meNotes.Text;
    TMSFMXCloudGContacts1.Add(gc);

?
3

Yes - this is how I add the contact.

But it is not added to any group then.
4

To add a contact to a group:


var
  gc: TGContact;
  gcg: TGContactGroup;

    gc := TMSFMXCloudGContacts1.Contacts[0];
    gcg := gc.Groups.Add;
    gcg.ID := TMSFMXCloudGContacts1.Groups[0].ID;

    TMSFMXCloudGContacts1.Update(gc);

This is demonstrated in the GContactsDemo application.