Mostrar Lista de objetos no grid

procedure TClienteDAO.ListarDados;
 var
  conexao : TDBXConnetion;
  command : TDBXCommand;
  reader : TDBXReader;
begin
 try
  
  // Fabrico uma conexao
  conexao := TDBXConnectionFactory.GetConnectionFactory.GetConnection('SISTEMA','sysdba','masterkey');
  
  // Crio uma instrução SQL
  command := conexao.CreateCommand; 
  
  // Passo a instrução SQL para o objeto command
  command.Text := ' Select * From CLIENTES ';

  
  command.Prepare; // Preparo a instrução para ser executada no banco
  reader := command.ExecuteQuery; // o objeto Reader irá armazenar o resultado da instrução SQL

    if Assigned(reader) then
      begin
        // Utilize TDBXDataSetReader para copiar os dados do objeto reader para o seu ClientDataSet
        TDbxDataSetReader.CopyReaderToClientDataSet(reader, dm_dados.cds_clientes);
      end;

 finally
  // libera os objetos da memória
  FreeAndNil(conexao);
  FreeAndNil(command);
  FreeAndNil(reader);
 end;
end;

  TCliente = class
    FNome: string;
    FIdade: string;
  end;

procedure TForm1.btnListarClick(Sender: TObject);
 var 
  i       : Integer;
  lista   : TList;
  cliente : TCliente;
begin
 try 

  // cria os objetos na Memória
  cliente := TCliente.Create;
  lista := TList.Create;
  
  // Passa os dados dos edits para o objeto cliente
  cliente.FNome := Edit1.Text;
  cliente.FIdade := Edit2.Text;
  
  //adiciona no objeto lista
  lista.Add(cliente);

  // loop para listar os dados no Memo
  for i := 0 to lista.Count -1 do
  begin
    Memo1.Lines.Add('Nome: ' + TCliente(lista.Items[I]).FNome);
    Memo1.Lines.Add('Idade: ' + TCliente(lista.Items[I]).FIdade);
  end;
 finally
   // libera os objetos da memória
   FreeAndNil(lista);
   FreeAndNil(cliente);
 end;