type TClass = partial class constructor := exit; constructor := exit; end; begin end.