How to underline words after spell check using Delphi

Question

I'm trying to develop a text editor with spell checker capability. I can detect erroneous words successfully.

Many text editors underline (red color) the erroneous words like this.

How can I underline any word this way? Any TMemo, TRichEdit or TSynEdit solution is acceptable.