TIdVCardEMailAddresses = class(TOwnedCollection)
property Items [ Index: Integer ]: TIdVCardEMailItem;
function Add: TIdVCardEMailItem;
constructor Create(AOwner: TPersistent); reintroduce;
ClassType is intialized to TIdVCardEMailItem.