这个有关指针的程序错误在什么地方

Question

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
  Work=record    //定义一个记录类型
    id:integer;
    name:string[8];
  end;
  PWork=^Work;  //再定义成指针类型var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  x:integer;
  y:string;
  Pw:PWork;
begin
  Pw:=nil;
  Pw^.id :=369;
  Pw.name :='华佗';
  x:=Pw^.id ;
  y:=Pw.name ;
  caption:=y+'的月工资为'+inttostr( x);
end;end.

Answer 1

申请内存,去掉 Pw:= nil; GetMem(Pw,Sizeof(Work));

Answer 2

GetMem(Pw,Sizeof(Work));
//....
FreeMem(Pw,Sizeof(Work));