Путь в реестре

//ValuePath - путь к ключу; Value - само значения; Add - если нет такого ключа то создать, иначе показать сообщение что ключ не найден
procedure SetStringValue(ValuePath, Value: string; Add: boolean);
var
 Root, Path, Key: string;
 reg: TRegistry;
begin
 Root := Copy(ValuePath, 1, Pos('\', ValuePath) - 1);
 Key := Copy(ValuePath, Pos('/', ValuePath) + 1, Length(ValuePath));
 Path := ValuePath;
 Delete(Path, 1, Pos('\', Path));
 Delete(Path, Pos('/', Path), Length(Path));

 reg := TRegistry.Create;
 try
  if Root = 'HKEY_CURRENT_USER' then
   reg.RootKey := HKEY_CURRENT_USER
  else if Root = 'HKEY_LOCAL_MACHINE' then
   reg.RootKey := HKEY_LOCAL_MACHINE
  else if Root = 'HKEY_CLASSES_ROOT' then
   reg.RootKey := HKEY_CLASSES_ROOT
  else if Root = 'HKEY_USERS' then
   reg.RootKey := HKEY_USERS
  else if Root = 'HKEY_PERFORMANCE_DATA' then
   reg.RootKey := HKEY_PERFORMANCE_DATA
  else if Root = 'HKEY_CURRENT_CONFIG' then
   reg.RootKey := HKEY_CURRENT_CONFIG
  else if Root = 'HKEY_DYN_DATA' then
   reg.RootKey := HKEY_DYN_DATA;

  if not reg.ValueExists(Path + Key) then
   if not Add then
   begin
    Application.MessageBox('Ключ не найден', 'Ошибка', MB_OK or MB_ICONSTOP);
    Exit;
   end;
  if Add then reg.OpenKey(Path, true) else reg.OpenKey(Path, false);

  reg.WriteString(Key, Value);
 finally
  reg.Free;
 end;
end;

SetStringValue(Edit1.Text, Edit2.Text, false);