errror n acha o valor

Clear;
close;

if ADO_Relatorio.FieldByName(''NUM_CARTAO'').AsString <> ''Visitante'' then
Add(''SELECT CAST(B.DATAHORA AS TIME(0)) DATA FROM Funcionarios A, Bilhetes B'')
else
Add(''SELECT CAST(B.DATAHORA AS TIME(0)) DATA FROM Visitantes A, Bilhetes B'');

Add('' WHERE A.COD_PESSOA = B.COD_PESSOA AND B.Tipo = 10'');
Add('' AND A.COD_PESSOA = :PESSOA'');
Add('' AND CAST(B.DATAHORA AS DATE) = :DATA'');

Parameters.ParamByName(''DATA'').Value := ADO_Relatorio.fieldbyName(''data_acesso'').asString;
{Copy(ADO_Relatorio.fieldbyName(''data_acesso'').AsString,7,4) + ''-''+
Copy(ADO_Relatorio.fieldbyName(''data_acesso'').AsString,4,2) + ''-''+
Copy(ADO_Relatorio.fieldbyName(''data_acesso'').AsString,1,2) ;}
Parameters.ParamByName(''PESSOA'').value := ADO_Relatorio.fieldbyName(''COD_PESSOA'').AsInteger;

QRL_horaI.Caption := ADO_Horario.FieldByName(''DATA'').asString ;
Open;
o que estou fazendo de errado estou usando componente adoQery

Mas oq esta ocorrendo? oq vc esta tentando? se vc só colar o código sem explicar nada, fica complicado alguém te ajudar.

Abs!

ESTOU TENTANDO PEGAR A HORA DA TABELA E ESTA DANDO ERRO DE SINTAXE

ACHO Q FOI PORQUE EU TROQUEI O COMPONENTE QUE EU ESTAVA USANDO Q ERA O DBEXPRESS E PASSEI A USAR O ADO