1 2 3 4 5 6 7 8 9 10 11 12 13
{ %fail } type TTest = object constructor Init; end; constructor TTest.Init; begin exit (0); end; begin end.