How I can store phone numbers using addressbook component ? FMX - delphi

Question

I tried like this. First and Last names are added but phone number is not (Delphi 11, FMX)
procedure TForm1.ActionAddContactExecute(Sender: TObject);
var
Contact: TAddressBookContact;
Phones: TContactPhones;
eMails: TContactEmails;
Photo: TBitmapSurface;
begin
Contact := AddressBook1.CreateContact(FDefaultSource);
try
try
Contact.FirstName := edtFirstName.Text;
Contact.LastName := edtLastName.Text;
Phones := TContactPhones.Create;
try
Phones.AddPhone(TContactPhone.TLabelKind.Mobile, '767867679678');
Contact.Phones := Phones;
finally
Phones.Free;
end;
if not Image1.Bitmap.Size.IsZero then
begin
Photo := TBitmapSurface.Create;
try
Photo.Assign(Image1.Bitmap);
Contact.Photo := Photo;
Image1.Bitmap.SetSize(0, 0);
finally
Photo.Free;
end;
end;
// Add the work mail
eMails := TContactEmails.Create;
try
eMails.AddEmail(TContactEmail.TLabelKind.Work, edtWorkMail.Text);
Contact.eMails := eMails;
finally
eMails.Free;
end;
// Save a newly created contact to Address Book
AddressBook1.SaveContact(Contact);
except
on E: EAddressBookException do
ShowMessage('Cannot create the contact.' + E.Message);
end;
// Add the contact to the selected group, if any
try
if InRange(ComboBox1.ItemIndex, 0, FGroups.Count - 1) then
AddressBook1.AddContactIntoGroup
(FGroups.Items[ComboBox1.ItemIndex], Contact);
except
on E: EAddressBookException do
ShowMessage('Cannot add the newly created contact to group.' + E.Message);
end;
ListViewContacts.BeginUpdate;
try
AddListViewItem(Contact);
finally
ListViewContacts.EndUpdate;
end;
TabControl1.ActiveTab := TabItemContacts;
finally
Contact.Free;
end;
// Clear the Add Contact Form
ClearAddContactForm;
end;