关于delphi的一个有关问题。坐等回复。

关于delphi的一个问题。坐等回复。急急急。
大神帮我看看。这出错的原因是什么。怎么改。
procedure TForm1.Button1Click(Sender: TObject);
var
pp1: PPChar;
begin
pp1^ := '1234';
ShowMessage(pp1^); //万一的 Delphi 博客
end;

帮帮忙，，很急啊。。。。。。

[解决办法]
procedure TForm1.btn1Click(Sender: TObject);
var
pp1: PPChar;
p1: PChar;
begin
p1 := GetMemory(4);
StrCopy(p1, '1234');
pp1 := @p1;
ShowMessage(pp1^);
end;