delphi - 如何在使用 Delphi 进行拼写检查后给单词加下划线

Question

我正在尝试开发具有拼写检查功能的文本编辑器。我可以成功地检测到错误的单词。

许多文本编辑器在这样的错误单词下划线（红色）。

我怎样才能以这种方式在任何单词下划线？任何 TMemo、TRichEdit 或 TSynEdit 解决方案都是可以接受的。