Excepcion al comparar una clase en un if

[delphi.com.ar]

Empezado por nefy

if (components[j] TQuery) then

¿Esa línea te compila?... simplemente te falta el is!
Por otor lado... ¿En qué línea te da el error?

Empezado por roman

Nota además que el uso del operador as es innecesario ya que este operador básicamente es una combinación del operador is con el moldeo de tipos normal, y dado que previamente usas is estarías haciendo una doble verificación.

Mmmmm... en tu código cambiaste el as por un cast del tipo TClase(Variable), pero la finalidad es la misma.