Example code : Display all characters in an AnsiString
var
  myString  : AnsiString;
  myCharPtr : PAnsiChar;
  i : Integer;
 
begin
  // Create a string of AnsiChar's
  myString  := 'Hello World';
 
  // Point to the first character in the string
  i := 1;
  myCharPtr := Addr(myString[i]);
 
  // Display all characters in the string
  while i <= Length(myString) do
  begin
    ShowMessage(myCharPtr^);
    Inc(i);
    Inc(myCharPtr);
  end;
end;
 
 
Sonuç:
 
   H
   e
   l
   l
   o
 
   W
   o
   r
   l
   d