使用Delphi解析RTF

Question

如何使用Delphi解析RTF格式的文本？我需要解析RTF（rtf包含许多字体的文本）来提取用该字体格式化的字体名称和纯文本并将其放在列表中。我知道我可以使用Trichedit SelAttributes来实现这一点，但是使用视觉控制会使大文本变得非常慢。