又有新问题了,delphi6下如何操作注册表?

Question

我编译到这里就出错,请指教:
var 
reg:TRegistry;

Answer 1

var
  registertemp:TRegistry;
  connectstring:string ;
USES Registry;
......
procedure .....
var
  registertemp:TRegistry
begin
  registertemp:=TRegistry.Create;
  try
    registertemp.RootKey := HKEY_CURRENT_USER;
    if registertemp.OpenKey('\Software\abc, True) then
   begin
      connectstring:=registertemp.ReadString('connectstr');
      ADOConnFG.ConnectionString:= connectstring;
      registertemp.CloseKey;
    end;
  finally
    registertemp.Free;
    inherited;
  end ;
end;

Answer 2

去掉这些：
var
  registertemp:TRegistry;
  connectstring:string ;