Registry - KeyExists liefert immer false

[Neuni]

Hallo,

ich verzweifle gerade an der Registry.
Ich benutze folgenden Code, um auszulegen, ob ein Eintrag existiert:

Delphi-Quellcode:

      reg := TRegistry.Create;

      try

        reg.RootKey:=HKEY_LOCAL_MACHINE;

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

          reg.WriteString('testen','jo');

          if reg.KeyExists('testen') then begin
            Edit1.Text := 'Gibts';
          end else begin
            Edit1.Text := 'Gibts nicht';
          end;


      finally
        reg.free;
      end;

Das Teil liefert aber immer false (bzw. als Ausgabe "Gibts nicht"). Ich habe jetzt mal einen WriteString mit reingebaut und es ist immernoch so.
Wenn ich per Regedit schaue wird der Key aber erstellt und existiert dann auch.

Ich finde den Fehler ehrlich gesagt nicht...vllt. könnt ihr mir ja weiterhelfen.

PS: Nutze Delphi 7 PE