Здравствуйте, ArtDenis, Вы писали:

AD>Недавно реализовывал тоже самое Чтобы особо не мудрить, я просто
AD>перерисовывал подчёркивания каждые 500 милисекунд. Плюс к этому,
AD>компонент был не RichEdit, а RxRichEdit, т.к. RichEdit не умеет находить
AD>координаты букв по их индексу.

Вот-с, как вариант... (http://www.rsdn.ru/Forum/?mid=2195016).

   RichEdit1->SelStart = 1;
   RichEdit1->SelLength = 10;


   CHARFORMAT2 cf2 = {0}; // или просто обнулить если в дефли пишешь
   cf2.cbSize = sizeof( cf2 );
   cf2.dwMask = CFM_UNDERLINETYPE;
   cf2.bUnderlineType = CFU_UNDERLINEWAVE | 0x50;
   SendMessage( RichEdit1->Handle, EM_SETCHARFORMAT, true, (LPARAM) &cf2 );

Выделит в RichEdit все с 1 по 10 волнистой линией снизу. как в Ворде... (с) sjukov