🚀 go-pugleaf

Hello newsgroup,

please help a newbie. I've already searched the FAQ's, but didn't find an
answer.

I've got two classes and two collections:

 TPerson = Class; //forward declaration for TPerson
  TCommunication = Class; // forward declaration for TCommunication
  TCommunications = Class;
// ========================================================
//   T P E R S O N S   c l a s s
// ========================================================
  TPersons = class(TCollection)
    private
      function GetItem(Index : Integer) : TPerson;
    Public
      function Add : TPerson;
      property Items[Index : Integer] : TPerson read GetItem; default;
//      destructor Destroy; override;
  end;

// ========================================================
//   T P E R S O N   c l a s s
// ========================================================

  TPerson = Class(TCollectionItem)
  private
    fID      : Integer;
    fLastName    : String;
    fFirstName : String;
  public
    Communications : TCommunications;
    Property ID : Integer read fID write fID;
    Property LastName : String read fLastName write fLastName;

  end;


// ========================================================
//   T C O M M U N I C A T I O N S  c l a s s
// ========================================================
  TCommunications = class(TCollection)
    private
      function GetItem(Index : Integer) : TPerson;
    Public
      function Add : TCommunication;
      property Items[Index : Integer] : TCommunication read GetItem;
default;
//      destructor Destroy; override;
  end;


// ========================================================
//   T C O M M U N I C A T I O N  c l a s s
// ========================================================
  TCommunication = Class(TCollectionItem)
    private
      fID           : Integer;
      fPersonID     : Integer;
      fType         : String;
      fCountryCode  : String;
      fAreaCode     : String;
      fNumber       : String;
    Public
      Property ID   : Integer read fID write fID;
    end;


How do I have to define the Person Class, if I want to have a
TCommunications Collection in it?
To make it clear, I want to do something like this

TPersons.items[1].Communications.Add  TMyCommunication;

or

TPersons.items[3].Communications.Item[1].CountryCode:='001';


Thanks for your help guys!

Andy