Excepcion al comparar una clase en un if

[nefy]

Hola se genera una excepcion en la siguiente rutina:

procedure CerrarDatasets(ADM: TDataModule);
var j:Integer;
begin
with ADM do
  begin
  for j := 0 to ComponentCount - 1 do
    begin
    ShowMessage(Components[j].ClassName);
    if (components[j] is TTable) then  //Aqui al comparar truena
      begin
      (components[j] as TTable).Close;
      end;
    if (components[j] TQuery) then
      (components[j] as TQuery).Close;
    end;
  end;
end;

Lo extraño es q tengo otra rutina q tiene la misma sintaxis solo q aquella abre los TTables y Querys existentes en el modulo de datos indicado en el parametro de la funcion.

Asi q obviamente existe un error pero no lo ubico, espero ustedes lo puedan ver.

Salu2.