CleRegistre:=TRegistry.Create;
  CleRegistre.RootKey := HKEY_LOCAL_MACHINE;
  if CleRegistre.OpenKey('\SOFTWARE\RClock',false)  // suposé crée ...
 
De la manière que je vois le code fonctionner, il vérifie si le DOSSIER est créé ou non, et non la clé elle-même.
 
Vous avez pas une commande qui vérifierais ca ?

function KeyExists(const Key: String): Boolean; ?

essai un truc du genre
 
avec
reg : tregistry;
m1 : string;
val: tsrings;
i,ii : integer;
 
 
m1:='software\RClock';
Reg:=TRegistry.Create;
try
  Val:=TStringList.Create;
   try
     Reg.RootKey:=HKEY_LOCAL_MACHINE; // Section où chercher dans le registre
      if not
        reg.OpenKey(m1,false) then
        ShowMessage('Erreur d''ouverture de la clé'
      else
      begin
        Reg.GetValueNames(Val);
        for I:=0 to Val.Count-1 do
        begin
          ShowMessage(m1 + Chr(13) +
                      'contient une entrée nommée  '+Val.Strings[I]+Chr(13)+
                      'De valeur  '+Reg.ReadString(Val.Strings[I]));
        end;
   val.free;
  finally
    Reg.Free;
  end;