var
  myString  : string;
  myCharPtr : PChar;
  i : Integer;

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

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

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