Hola...
Me parece recordar, que primero tendrías que preparar el query para que pueda reconocer los parámetros:
Código Delphi
[-]
Query3.SQL.Clear;
Query3.Active := False ;
With Query3.Sql Do
Begin
Add('SELECT NUM,SENSOR,UBICACION,ORIGEN,TIPO');
Add ('FROM "'+ruta_q+'"');
Add('WHERE');
Add('SENSOR = :sens1');
end;
Query3.Prepare;
Query3.parambyname('sens1').asInteger:= dsensor;
Saludos...