DELPHI + Registro

HKEY_CLASSES_ROOT;
HKEY_CURRENT_USER;
HKEY_LOCAL_MACHINE;
HKEY_USERS;
HKEY_CURRENT_CONFIG;

 USES Registry.

//Adicionando uma chave ao registro do Windows.
procedure TFormX.AddKeyBtnClick(Sender: TObject);
var
  reg        : TRegistry;
  openResult : Boolean;
  today      : TDateTime;
begin
  reg := TRegistry.Create(KEY_READ);
  reg.RootKey := HKEY_LOCAL_MACHINE;
 
{Checando a existência dos valores e inserindo se necessário}
   if not reg.KeyExists('Teste\ Data') then
    begin
      today := Now;
                reg.WriteDateTime('Teste\ Data', today);
    end;
 
  if not reg.KeyExists('Liberado\ Para') then
    begin
                reg.WriteString('Liberado\ Para', 'Nome do usuário');
    end;
  reg.CloseKey();
  reg.Free;
 end;
 
//Excluir chave do registro do windows
procedure TFormX.DeleteKeyBtnClick(Sender: TObject);
var
  reg : TRegistry;
begin
  reg := TRegistry.Create(KEY_WRITE);
  reg.RootKey := HKEY_LOCAL_MACHINE;
 
  reg.DeleteKey('Liberado\ Para');
  reg.CloseKey();
  reg.Free;
 end;