Registry Einträge werden (auf PC 4) nicht gespeichert

[DeddyH]

Was passiert hiermit?

Delphi-Quellcode:

regist:=Tregistry.Create;
try
  regist.RootKey:=HKEY_CURRENT_USER;
  if regist.KeyExists('\Software\Programm\Settings') then
    begin
      if regist.OpenKey('\Software\Programm\Settings',true) then
        begin
          regist.WriteInteger('Open', 1);
          regist.WriteInteger('Close', 0);
          regist.CloseKey;
        end
      else
        MessageBox(0, 'Schlüssel kann nicht geöffnet werden.', nil, MB_OK or MB_ICONERROR);
    end
  else
    begin
      MessageDlg ('Einträge in der Registry fehlen', mtError, [mbok], 0);
    end;
finally
  regist.Free;
end;