freepascal.compiler/tests/tbs0239.pp

{$mode delphi}
   uses sysutils;
   type
     ttest=class
     end;
     ttestclass=class of ttest;
   var
     i:ttest;
     tt:tclass;
   begin
     tt:=ttest;
     write(i is tt);
   end.