Нужна помощь с TRichEdit

[LLIapoB]

Доброе время суток.Нужна помощь с TRichEdit.У меня задание заключается в том,чтобы открыть файл в формате .rtf .В нем нужно найти слова со стилем fsUnderline и заменить их на другое слово.Пытался посимвольно проверять стиль,но ничего не получалось.Буду очень вам признателен за помощь.

[Stilet]

Первое что бы мне пришло в голову - открыть rtf как обычный бинарный файл, найти в нем сигнатуру стиля и заменить на некую другую. Т.е. какерскими методами, а не компонентом.

[LLIapoB]

Открыть его не составило труда,а вот заменить текст,немного проблематично.
Вот код,который посимвольно проверяет на стиль и заменяет этот символ на другой.

int length = RichEdit1->Text.Length();
for(int i = 1; i <= length; i++) {
    RichEdit1->SelStart=i;
    RichEdit1->SelLength=1;
    if(RichEdit1->SelAttributes->Style.Contains(fsUnderline)){
        RichEdit1->SelText = "1";
    }
}

Мне же нужно сделать так,чтобы он узнавал длину слова со стилем fsUnderline.
В TEdit пользователь вводит слово,на которое будет заменяться.
Предположим в RichEdit есть подчеркнутое слово "мама", а в Edit написано "па",то
в RichEdit должно записаться "папа" вместо "мама".А если слова написаны наоборот,то есть
в RichEdit "па",а в Edit "мама",то должно написать в RichEdit "ма".