RosettaCodeData/Task/Pointers-and-references/Delphi/pointers-and-references-7.pas

IntVar := integer(MyPointer^);