Como trabalhar POO usando uma lista de telefones.

interface 

uses Contnrs; 

type 

  TTipoEndereco = (teComercial, teResidencial); 
  TTipoTelefone = (telComercial, telResidencial, telRecado); 

  TEndereco = class 
  private 
    FBairro: string; 
    FUF: string; 
    FCEP: string; 
    FNumero: string; 
    FCidade: string; 
    FRua: string; 
    FTipo: TTipoEndereco; 
    procedure SetBairro(const Value: string); 
    procedure SetCEP(const Value: string); 
    procedure SetCidade(const Value: string); 
    procedure SetNumero(const Value: string); 
    procedure SetRua(const Value: string); 
    procedure SetUF(const Value: string); 
    procedure SetTipo(const Value: TTipoEndereco); 
  public 
    property Rua: string read FRua write SetRua; 
    property Numero: string read FNumero write SetNumero; 
    property Bairro: string read FBairro write SetBairro; 
    property Cidade: string read FCidade write SetCidade; 
    property UF: string read FUF write SetUF; 
    property CEP: string read FCEP write SetCEP; 
    property Tipo: TTipoEndereco read FTipo write SetTipo; 
  end; 

  TTelefone = class 
  private 
    FNumero: string; 
    FTipo: TTipoTelefone; 
    procedure SetNumero(const Value: string); 
    procedure SetTipo(const Value: TTipoTelefone); 
  published 
    property Numero: string read FNumero write SetNumero; 
    property Tipo: TTipoTelefone read FTipo write SetTipo; 
  end; 

  TPessoa = class 
  private 
    FNome: string; 
    procedure SetNome(const Value: string); 
  public 
    property Nome: string read FNome write SetNome; 
  end; 

  TCliente = class(TPessoa) 
  private 
    FDataNascimento: TDateTime; 
    FCPF: string; 
    FEnderecoComercial: TEndereco; 
    FEnderecoResidencial: TEndereco; 
    FTelefones: TObjectList; 
    procedure SetCPF(const Value: string); 
    procedure SetDataNascimento(const Value: TDateTime); 
    procedure SetEnderecoComercial(const Value: TEndereco); 
    procedure SetEnderecoResidencial(const Value: TEndereco); 
    procedure SetTelefones(const Value: TObjectList); 
    procedure Inicializar; 
  public 
    constructor Create; overload; 
    constructor Create(CPF: string; DataNascimento: TDateTime); overload; 
    constructor Create(DataNascimento: TDateTime; Nome: string); overload; 
    constructor Create(Nome: string); overload; 

    constructor Criar; 

    property CPF: string read FCPF write SetCPF; 
    property DataNascimento: TDateTime read FDataNascimento write SetDataNascimento; 
    property EnderecoComercial: TEndereco read FEnderecoComercial write SetEnderecoComercial; 
    property EnderecoResidencial: TEndereco read FEnderecoResidencial write SetEnderecoResidencial; 
    property Telefones: TObjectList read FTelefones write SetTelefones; 
  end; 


implementation 

{ TPessoa } 

procedure TPessoa.SetNome(const Value: string); 
begin 
  FNome := Value; 
end; 

{ TCliente } 

constructor TCliente.Create; 
begin 
  inherited; 
  Inicializar; 
end; 

constructor TCliente.Create(DataNascimento: TDateTime; Nome: string); 
begin 
  inherited Create; 
  Inicializar; 
  Self.DataNascimento := DataNascimento; 
  Self.Nome := Nome; 
//  FDataNascimento := DataNascimento; 
//  FNome := Nome; 
end; 

constructor TCliente.Create(CPF: string; DataNascimento: TDateTime); 
begin 
  inherited Create; 
  Inicializar; 
  Self.CPF := CPF; 
  Self.DataNascimento := DataNascimento; 
end; 

constructor TCliente.Create(Nome: string); 
begin 
  inherited Create; 
  Inicializar; 
  Self.Nome := Nome; 
end; 

constructor TCliente.Criar; 
begin 

end; 

procedure TCliente.SetCPF(const Value: string); 
begin 
  FCPF := Value; 
end; 

procedure TCliente.SetDataNascimento(const Value: TDateTime); 
begin 
  FDataNascimento := Value; 
end; 

procedure TCliente.SetEnderecoComercial(const Value: TEndereco); 
begin 
  FEnderecoComercial := Value; 
end; 

procedure TCliente.SetEnderecoResidencial(const Value: TEndereco); 
begin 
  FEnderecoResidencial := Value; 
end; 

procedure TCliente.SetTelefones(const Value: TObjectList); 
begin 
  FTelefones := Value; 
end; 

{ TEndereco } 

procedure TEndereco.SetBairro(const Value: string); 
begin 
  FBairro := Value; 
end; 

procedure TEndereco.SetCEP(const Value: string); 
begin 
  FCEP := Value; 
end; 

procedure TEndereco.SetCidade(const Value: string); 
begin 
  FCidade := Value; 
end; 

procedure TEndereco.SetNumero(const Value: string); 
begin 
  FNumero := Value; 
end; 

procedure TEndereco.SetRua(const Value: string); 
begin 
  FRua := Value; 
end; 

procedure TEndereco.SetTipo(const Value: TTipoEndereco); 
begin 
  FTipo := Value; 
end; 

procedure TCliente.Inicializar; 
begin 
  FEnderecoComercial := TEndereco.Create; 
  FEnderecoResidencial := TEndereco.Create; 
  FTelefones := TObjectList.Create; 
end; 

procedure TEndereco.SetUF(const Value: string); 
begin 
 FUF := Value; 
end; 

{ TTelefone } 

procedure TTelefone.SetNumero(const Value: string); 
begin 
  FNumero := Value; 
end; 

procedure TTelefone.SetTipo(const Value: TTipoTelefone); 
begin 
  FTipo := Value; 
end; 

end.