type TClass = class end; begin try writeln(1); except on e:TClass do end; end.