宣言したカスタムタイプに文字列を割り当てています。これは、TTreeViewsNode.Dataプロパティを使用して読み取り/書き込みします。ノードとの間で読み取りと書き込みを行います。次のようになります。
読む：RichEdit1.Lines.Text := TMyData(TreeView1.Selected.Data).MyString;
書く：TMyData(TreeView1.Selected.Data).MyString := RichEdit1.Lines.Text;
これはプレーンな文字列に最適です。フォーマットを失うことなく、リッチフォーマットされたテキストを文字列に格納できるようにしたいです。フリーウェアZeosLib（SQL）を使用してデータベースを保存しているため、RichEditでStreamsを使用してこれを行うことができました。これは、不明なトークンエラー（RTFタグからの可能性が高い）が発生するためです。エラーなしで保存するにはどうすればよいですか？
アップデート
Sylverdragによって提案されたBase64エンコーディング/デコーディングを使用して、エラーなしで正しく保存することができました。これは私の文字列をエンコードして悪い文字を削除します。