var
  myString  : AnsiString;
  myCharPtr : PAnsiChar;
  i : Integer;

begin
  // Создание строки AnsiChar
  myString  := 'Hello World';

  // Указатель на первый символ в строке
  i := 1;
  myCharPtr := Addr(myString[i]);

  // Показ всех символов строке
  while i <= length(mystring) do
  begin
    ShowMessage(myCharPtr^);
    Inc(i);
    Inc(myCharPtr);
  end;
end;