Max number of fields in FIREDAC select statement in runTime

Question

I migrated my application from BDE to FIREDac.
A routine that I use to update my database does not work:

SELECT 
  CODIGO , NOME , ENDERECO , ENDERECO1 , COMPLEMENTO , COMPLEMENTO1 ,
  PONTOREFERENCIA , BAIRRO , CIDADE , UF , PAIS , CEP , CX_POSTAL ,
  FONE , FAX , EMAIL , CONTATO , CGC , INSCRICAO , DATA_FICHA , CI ,
  CPF , TIT_ELEITOR , DATA_NASC , SEXO , EST_CIVIL , NATURAL , FILIACAO ,
  PAI , MAE , CONJUGE , NASC_CONJ , ALUGUEL , VAL_ALUGUEL , TEMP_RESID ,
  EMPRESA , FONE_EMPR , ADMISSAO , CEP_EMPR , CIDA_EMPR , UF_EMPR ,
  FUNCAO , TEMP_SERV , REF_COML , REF_BANC , CONS_SPC , OBS , CREDITO ,
  ATRASO , SALARIO , ENDEMPRESA , FOTO , NOMEFANTASIA , CREDITOS ,
  ENDCOBRANCA , RESTRICAO , BAIRRO_EMPR , INATIVO , CONTATO1 , CONTATO2 ,
  CONTATO3 , TAXABOLETO , RESTRICAOANTIGA , NUMERO , IDCIDADE ,
  IDPAISES , CUF
FROM
  Clientes

It gives me an internal error.

Some light ??!

Note: In Time designer, put the direct command in FdQuery and it works normally!bs: In designer Time, input direct comand in FdQuery and

Note2: BD is in Access !!!

As I tried to explain, I would select the data and inserted No target table! The abiaxo routine works for tables with few fields. but in the case of error above it!

The select was only to demonstrate the table where the error occurs! The code:

procedure ConverteTabela(Query: TFDQuery; Alias, Tabela, Campo: string; Tipo: Integer; Senha: string);
var
  Tabela1: TFDTable;
  I: Integer;
  STR:String;
begin
// Tipo = 0 -> Todos os registros da tabela antiga
// Tipo = 1 -> Todos os registros da tabela antiga que não estão na tabela de atualização
// Tipo = 2 -> Todos os registros da tabela antiga que possuem Campo <> 0
// Tipo = 3 -> Apaga os registro da tabela de atualização e coloca os da empresa



  Tabela1 := TFDTable.Create(Application);
  Tabela1.ConnectionName := Query.ConnectionName;
  Tabela1.TableName := Tabela;

  Str:='';

  try
    Tabela1.open;
      for I := 0 to tabela1.Fields.Count-1 do
    begin
    if not (i=tabela1.Fields.Count-1) then
      begin
       Str:= Str + UpperCase(tabela1.Fields[i].FieldName)+ ' , '

      end
    else
       Str:= Str + tabela1.Fields[i].FieldName;
    end;

    Tabela1.Close;
    Tabela1.free;
  except
    exit;
  end;

  Mensagem('Convertendo : ' + Tabela + ' ...');

  if Tipo = 3 then
  begin
    Query.SQL.Clear;
    Query.SQL.Add('DELETE FROM "'+ Alias + '".'+Tabela);
    Query.ExecSQL;
    Tipo := 0;
  end;

  //test Select -
  Query.SQL.Clear;
  Query.SQL.Text := 'Select ' + str + 'from '+Tabela;
  Query.open;

  Query.SQL.Clear;
  Query.SQL.Text:='INSERT INTO "'+ Alias + '".'+tabela+' ('+str+')'+    '  SELECT '+str+' FROM ' + Tabela;

  if (Tipo = 1) then
  begin
    Query.SQL.Add('WHERE ' + Campo + ' NOT IN');
    Query.SQL.Add('(SELECT ' + Campo + ' FROM  "'+ Alias + '".'+tabela+')');
  end
  else if (Tipo = 2) then
  begin
    Query.SQL.Add('WHERE ' + Campo + ' <> 0');
    Query.SQL.Add('AND ' + Campo + ' <> -1');
  end;

 // Query.Prepare;
  try
    Query.ExecSQL;
  except
    showmessage('Erro ao executar comando : ' + Query.Sql.CommaText);
    exit;
  end;
end;