1 2 3 4 5 6 7 8 9 10 11 12
{ %fail } function f: pointer; begin f := pointer(1); end; var p : pointer; begin p := @longint(f); end.