1 2 3 4 5 6 7 8 9
{$mode delphi} var a : array[0..32] of char; p : pchar; i : integer; begin p:=a+i; end.