x64: Application exit abnormally when exception raised in event

Try run this script in Win64 build that raise exception in event handler:

```
procedure OnChange(Sender: TObject);
begin
   Abort;
end;

function Execute: string;
var s: TStringList;
begin
  s := TStringList.Create;
  try
    s.OnChange := @OnChange;
    s.Add('test');
  finally
    s.Free;
  end;
end;
```

The above code works in Win32 build that raise proper EAbort exception.