WriteString (section, 'Base64Text_Text', Base64Text.Text) ; WriteString (section, 'CodeTextLines_Lines', CodeTextLines.Lines.CommaText) ; if CompactXML.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'CompactXML_Checked', temp) ; WriteString (section, 'HexText_Text', HexText.Text) ; WriteString (section, 'JoseTextLines_Lines', JoseTextLines.Lines.CommaText) ; WriteString (section, 'JsonInput_Lines', JsonInput.Lines.CommaText) ; if JwkPrivate.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'JwkPrivate_Checked', temp) ; if LogJson.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'LogJson_Checked', temp) ; WriteInteger (section, 'NewPrivKey_ItemIndex', NewPrivKey.ItemIndex) ; WriteString (section, 'RawJWK_Lines', RawJWK.Lines.CommaText) ; if ShowRawKey.Checked then temp := 'True' else temp := 'False' ; WriteString (section, 'ShowRawKey_Checked', temp) ; WriteString (section, 'TestHmacKey_Text', TestHmacKey.Text) ; WriteInteger (section, 'TestJWSAlg_ItemIndex', TestJWSAlg.ItemIndex) ; WriteString (section, 'TestPrivKeyFile_Text', TestPrivKeyFile.Text) ; WriteString (section, 'URLText_Text', URLText.Text) ;