Hapus Key By Riko Software

//Riko Software
procedure TForm1.Button2Click(Sender: TObject);
begin
  Reg := TRegistry.Create;
   try
    with Reg do begin

      if KeyExists('Yamiriko\Pantsu') then begin

        //Pastikan Root Keynya
        RootKey := HKEY_CURRENT_USER;

        //Lalu aktifkan Keynya
        OpenKey('',False);

        DeleteKey('Yamiriko');
        ShowMessage('Sudah Ane Hapus gan ^_^ ');

        //Menutup Key

        CloseKey;
      end
      else begin
        ShowMessage('Gak Bisa dijalankan gan kan udah dihapus registrinya');
      end;
    end;
  finally
    Reg.Free;
    inherited;
  end;
end;