Simpan Key By Riko Software

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


      //Baca dulu Keynya ada atau tidaknya
      if KeyExists('Yamiriko\Pantsu') then begin
        //Pastikan Root Keynya dulu
        RootKey := HKEY_CURRENT_USER;

        //Lalu aktifkan Keynya
        OpenKey('Yamiriko\Pantsu',False);

        //Simpan data ke dalam registry
        WriteString('Tes','200');
        ShowMessage('Datanya Sudah ada yaitu : ' + ReadString('Tes'));
      end
      else begin
        CreateKey('Yamiriko\Pantsu');

        //Ganti Root Keynya
        RootKey := HKEY_CURRENT_USER;

        //Lalu aktifkan Keynya
        OpenKey('Yamiriko\Pantsu',False);

        //Simpan data ke dalam registry
        WriteString('Tes','200');

        ShowMessage('Datanya Belum ada, Ane Tulis : ' + ReadString('Tes') + ' dulu yach');
      end;

      //Menutup Key

      CloseKey;
    end;
  finally
    Reg.Free;
    inherited;

  end;

end;