{ %fail } {$mode delphi} type TEagle = class constructor Create(); end; constructor TEagle.Create(); begin end; begin end.