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

{$POINTERMATH ON}
PrevIntVar := MyIntPtr[-1];
Rec4 := MyRecPtr[4];