Fórum DBXReader para TClientDataSet - Firemonkey #444009

function TSMTeste.GetProdutos: TDBXReader;
var
  FComm: TDBXCommand;
  AReader : TDBXReader;
begin
  if not cdsProduto.Active then
  begin
    SCContainer.SQLConnection.open;
    FComm := SCContainer.SQLConnection.DBXConnection.CreateCommand;
    FComm.CommandType := TDBXCommandTypes.DbxSQL;
    FComm.Text := 'Select * From PRODUTO';
    if not FComm.IsPrepared then
      FComm.Prepare;
    AReader := FComm.ExecuteQuery;

    TDBXClientDataSetReader.CopyReaderToClientDataSet( AReader, cdsProduto);
    cdsProduto.Open;
  end;
  Result := TDBXClientDataSetReader.Create(cdsProduto, False);
end;

var
  smc: TSMTesteClient;
  aReader: TDBXReader;
begin
  SQLConnection.Open;
  smc := TSMTesteClient.Create(SQLConnection.DBXConnection);
  try
    aReader := smc.GetProdutos;
    try
      if Assigned(aReader) then
        TDBXClientDataSetReader.CopyReaderToClientDataSet(aReader, cdsProdutos); {AQUI OCORRE O ERRO -> Access Violation}
    finally
      FreeAndNil(aReader);
    end;
    cdsProdutos.Open;
  finally
    smc.Free;
  end;