Problema con "class of"

[Javierus]

Necesito hacer algo como ésto, pero el compilador dice que así no...

Type
  Tuno = class 
    loquesea: integer;
  end;
  Tdos = class(Tuno) 
     mascosas: string;
  end;
  TunoClass = class of Tuno;
  TdosClass = class of Tdos;

var
   a: TunoClass;
begin
...
  if a is TdosClass then  <-  Error: Operator not applicable to this operand type
    ...