var
  myWideString  : WideString;
  myWideCharPtr : PWideChar;
  i : Integer;

begin
  // Создание строки WideChar
  myWideString  := 'Hello';

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

  // Показ строки
  ShowMessage(myWideCharPtr);

  // Теперь приращиваем указатель
  Inc(myWideCharPtr,2);

  // И смотрим, что он показывает сейчас
  ShowMessage(myWideCharPtr);

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