[Delphi] Работа с реестром несколько раз (с помощью одной переменной)

[zotox]

reg:TRegistry;

 reg:=TRegistry.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;

 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion',true);

 if reg.KeyExists('InstallStatus')=false then
  begin
    reg.WriteBool('InstallStatus',false);
  end;

 if reg.ReadBool('InstallStatus')=false then
  begin
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
    reg.WriteString('DumperWindows',Application.ExeName);
  end;

Т.е. у меня записыватся "InstallStatus" (false) в ветку "Software\Microsoft\Windows\Current Version"

А вот reg.WriteString не хочет делаться, хотя и installstatus имеет результат false

Собственно вопрос, можно ли работать с помощью 1 переменной (типа TRegistry) ходить по реестру и изменять то что надо? Если да то что я не так делаю в коде?

[spamer]

Вот что то типа такого:

procedure TForm1.Button1Click(Sender: TObject);
var
  reg:TRegistry;
begin
 reg:=TRegistry.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;

 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\InstallStatus',true);
 reg.WriteBool('InstallStatus',false);

 if reg.ReadBool('InstallStatus')=false then
  begin
    reg.CloseKey;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',true);
    reg.WriteString('DumperWindows',Application.ExeName);
    reg.CloseKey;
  end;
reg.Free;
end;

[uberchel]

Вот так :

var
 Reg: TRegistry;
begin
 Reg:=TRegistry.Create;
 Reg.RootKey:= HKEY_LOCAL_MACHINE;
try
 Reg.OpenKey('SoftWare\Microsoft\Windows\CurrentVersion\InstallStatus',True);
 if Reg.KeyExists('InstallStatus') = False then
 Reg.WriteBool('InstallStatus',false);
finally
 if reg.ReadBool('InstallStatus')= False then
begin
 Reg.CloseKey;
 Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',True);
 Reg.WriteString('DumperWindows',Application.ExeName);
end;
 Reg.CloseKey;
 Reg.Free;
end;