uses 

  Registry, Windows; 

procedure TForm1.Button1Click(Sender: TObject); 
var 
  Registry: TRegistry; 
begin 
  { создаём объект TRegistry }
  Registry := TRegistry.Create; 
  { устанавливаем корневой ключ; напрмер hkey_local_machine или hkey_current_user } 
  Registry.RootKey := hkey_local_machine; 
  { открываем и создаём ключ }
  Registry.OpenKey('software\MyRegistryExample',true); 
  { записываем значение }
  Registry.WriteString('MyRegistryName','MyRegistry Value'); 
  { закрываем и освобождаем ключ }
  Registry.CloseKey; 
  Registry.Free; 
end;


// для удаления ключа используется функция Registry.DeleteKey

procedure SetAutorun(aProgTitle,aCmdLine: string; 
  aRunOnce: boolean ); 
var 
  hKey: string; 
  hReg: TRegIniFile; 
begin 
  if aRunOnce then hKey := 'Once' 
  else 
  hKey := ''; 

  hReg := TRegIniFile.Create( '' ); 
  hReg.RootKey := HKEY_LOCAL_MACHINE; 
  hReg.WriteString('Software\Microsoft\Windows\CurrentVersion\Run' 
  + hKey + #0, 
  aProgTitle, 
  aCmdLine ); 
  hReg.destroy; 
end;