TEstado = class
  FUF: string;
end;

TCidade = class
  FNome: string;
  FEstado: TEstado;
end;

procedure TForm1.AdapterBindSource2CreateAdapter(Sender: TObject;
  var ABindSourceAdapter: TBindSourceAdapter);

begin

     FLista := TObjectList<TPessoa>.Create;
     FLista.Add(TPessoa.Create('Filipe', 25, 'filipe@email.com'));
     FLista.Add(TPessoa.Create('Cíntia', 27, 'cintia@email.com'));
     FLista.Add(TPessoa.Create('Julio', 32, 'julio@email.com'));
     ABindSourceAdapter := TListBindSourceAdapter<TPessoa>.Create(Self,     FLista);

end;