procedure TForm1.Button2Click(Sender: TObject); var Reg:TRegistry; Val:TStrings; ii:System.Integer; TmpStr:String; begin Reg:=TRegistry.Create(); Val:=TStringList.Create(); Try Reg.RootKey:=HKEY_CURRENT_USER; if Reg.OpenKey('Software\Tencent\PlatForm…