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