[4kusNick]

Код:

//...
var
  Reg: TRegistry;
begin

  Reg := TRegistry.Create();
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    // можно так
    if Reg.OpenKey('\Software\key', False) then
    begin
      ShowMessage('Ключ есть');
    end
    else
    begin
      ShowMessage('Ключа нет');
    end;
    // но лучше так
    if Reg.KeyExists('\Software\key') then
      ShowMessage('Ключ есть')
    else
      ShowMessage('Ключа нет');
  finally
    Reg.Free;
    inherited;
  end;

end;