P: pointer;
S: string;
begin
s:= ' ABC '；
p:= PChar(s)； //Assign a value to the pointer
P:= pointer (integer (p)+1); //Move the pointer back one bit.
Description: = string (char (p)); //Read the contents of the moving pointer.
End;