使用TRegistry的问题

Question

我在Delphi5中编写如下代码：
procedure TMainForm.ShowInfoClick(Sender: TObject);
var
  reg: TRegistry;
begin
  reg.Create(KEY_READ);
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false) then begin
      InfoTar.Text := reg.ReadString('TaskMonitor');
    end;
  finally
    reg.CloseKey;
    reg.Free;
    inherited;
  end;
end;编译正常，就是运行错误：
Access violation at address 00440602 in moudle 'test.exe'. Read of address 00000008.这个是我在Delphi5中的帮助里“抄的”代码。感谢各位大虾了！！！

Answer 1

procedure TMainForm.ShowInfoClick(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    if reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false) then begin
      InfoTar.Text := reg.ReadString('TaskMonitor');
    end;
  finally
    reg.CloseKey;
    reg.Free;
    inherited;
  end;
end;

Answer 2

reg.Create(KEY_READ);
这句改为
reg:=TRegistry.Create;//创建实例还有就是uses
Registry