uses System; type TA = class end; TB = class(TA) end; begin var x{@var x: TA>;@} := TA&(new TB()); end.