Autodata Runtime Error 217 At 00580d29 | Free |

type PFakeObject = ^TFakeObject; TFakeObject = class procedure CrashMe; virtual; end;

var obj: TFakeObject; p: Pointer; begin // Allocate memory but not as a valid object GetMem(p, SizeOf(TFakeObject)); FillChar(p^, SizeOf(TFakeObject), 0); obj := TFakeObject(p); autodata runtime error 217 at 00580d29

procedure TFakeObject.CrashMe; begin Writeln('This will not be reached'); end; type PFakeObject = ^TFakeObject