procedure TFakeObject.CrashMe; begin Writeln('This will not be reached'); end;
program SimulateError217; {$APPTYPE CONSOLE} autodata runtime error 217 at 00580d29
type PFakeObject = ^TFakeObject; TFakeObject = class procedure CrashMe; virtual; end; procedure TFakeObject