macOS Adding group members to address book

Hello,
I want to add group and members to group in address book.
I have done the following things.
ABAddressBook*book = [ABAddressBook SharedAddressBook];
ABPerson *person;
ABGroup *group = [[[ABGroup alloc] init] autorelease];
[group setValue"friend" forProperty:kABGroupNameProperty];
person = [[[ABPerson alloc] init] autorelease];

[person setValue"john" forProperty:kABFirstNameProperty];
[person setValue"ejks' forProperty:kABLastNameProperty];

[book addRecord: person];

[group addMember: person];

[book addRecord:group];

[book save];

i am not getting the group in addressbook. addMember and addRecord are returning value true.
can any one tell me what is the problem?

------------
Thank You..

xmax.