var
  myString  : shortString;
  stringPtr : PShortString;

begin
  // Установка нашей короткой строки
  myString := 'Hello World';

  // Указатель на нашу строку
  stringPtr := Addr(myString);

  // Отображение строки используя указатель
  ShowMessage(stringPtr^);
end;