Как проверить сущ. ли ключ в реестре?(делфи)

[zotox]

Как проверить существует ли ключ в реестре?(делфи) (ну определенный ключ конечно же)

[Neeter]

Вот пример:

procedure TForm1.Button1Click(Sender: TObject);
var
 reg: TRegistry;
begin
 reg := TRegistry.Create;
 try
  reg.RootKey := HKEY_CURRENT_USER;
  if reg.KeyExists('\Software\111\') then
  begin
   if reg.OpenKey('\Software\111\', false) then
   begin
    readString(...);
    ...
   end;
  end
  else ShowMessage('Ключ не существует');
  reg.CloseKey;
 finally
  reg.Free;
 end;
end;