1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
{ %fail } {$ifdef fpc}{$MODE objfpc}{$endif} unit tw1599; interface type TMyClass = class; implementation type TMyClass = class end; end.