Erro na consulta SQL do FDQuery usando ParamByName

Fiz uma função em meu código para consultar código do cartão, mas quando realizado click no botão para consultar é apresentado erro. Informa que FDQuery
não tem ParamByName('COD_CARTAO') em outras funções uso esse modo para pegar valor e colocar em um outro dataset. Queria algum dica para buscar uma solução.


procedure consultacartao();


WITH Qcon DO
BEGIN

FDQuery.Close;
FDQuery.SQL.Clear;
FDQuery.SQL.add('SELECT * FROM cartao cc');
FDQuery.SQL.add('WHERE cc.COD_CARTAO = :CODCARTAO ');

FDQuery.ParamByName('CODCARTAO').Value := 1;

FDQuery.Open;


FDQuery.First;
while not FDQuery.Eof do
begin


cds.ParamByName('COD_CARTAO').AsInteger := FDQuery.ParamByName('COD_CARTAO').AsInteger;
FDQuery.Next;

end