Fórum errror n acha o valor #607776

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