@@ -0,0 +1,9 @@
+{$mode delphi}
+
+var
+ a : array[0..32] of char;
+ p : pchar;
+ i : integer;
+begin
+ p:=a+i;
+end.