1:
2:
3:
4:
5:
6:
7:
8:

procedure test();
var s:^WideChar;
s2:WideChar;
begin
  s:=Pointer(pText);
  s2:=WideChar('Hello World');
  s^ :=s2;
end;					

1:
2:
3:
4:
5:
6:
7:

const
    s: WideString = 'お元気です？';
var
    s2: WideString;
begin
    s2 := s;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure test();
var s:^WideString;
s2:WideString;
begin
  s:=Pointer(pText);
  s2:='Hello World';
  MessageDlg('1:'+inttostr(Cardinal(s))+':'+s^,mtError,[mbOK],-1);
  s^ :=s2;
  MessageDlg('2:'+inttostr(Cardinal(s))+':'+s^,mtError,[mbOK],-1);
end;