type
  TPhone = class
  public
    Model: string;
  end;

  TEmployee = class
  public
    FirstName, LastName: string;
    PersonalPhone: TPhone;
  end;

var
  NokiaPhone, IPhone5: TPhone;
  Kim: TEmployee;
begin
  //Create is inherited from TObject
  NokiaPhone := TPhone.Create;
  NokiaPhone.Model := 'Nokia 6610';

  IPhone5 := TPhone.Create;
  IPhone5.Model := 'iPhone 5';

  Kim := TEmployee.Create;
  Kim.FirstName := 'Victoria';
  Kim.LastName := 'Kim';
  Kim.PersonalPhone := IPhone5;

  WriteLn(NokiaPhone.Model);
  WriteLn(Kim.PersonalPhone.Model);
end.