Как в ричедит форматировать текст?

RichEdit1->Lines->Add("\n Ðàñøèôðîâêà ïîçèöèé: \n \n 1 (äåòñòâî, èëè ïåðâàÿ ÷àñòü æèçíè, îðèåíòèðîâî÷íî äî 25 ëåò): " + IntToStr(T1)
+ "\n \n 2 (ìîëîäîñòü, èëè âòîðàÿ ÷àñòü æèçíè, îðèåíòèðîâî÷íî äî 50 ëåò): " + IntToStr(T2)
+ "\n \n 3 (ñòàðîñòü, èëè òðåòüÿ ÷àñòü æèçíè, îðèåíòèðîâî÷íî ïîñëå 50 ëåò): " + IntToStr(T3)
+ "\n \n 4 (ïîäñîçíàíèå,* ñêðûòûå ñòðàõè è êîìïëåêñû): " + IntToStr(T4) + P4 + P4x + P4e
+ "\n \n 5 (ñîçíàíèå è ñèñòåìà öåííîñòåé): " + IntToStr(T5)
+ "\n \n 6 (ñâåðõñîçíàíèå, äóõîâíûå ïîêðîâèòåëè è ñêðûòûå òàëàíòû): " + IntToStr(T6)
+ "\n \n 7 (êàðìè÷åñêàÿ çàäà÷à - îáëàñòè ðåàëèçàöèè æèçíåííîé ìèññèè): " + IntToStr(T7) + P7 + P7x
+ "\n \n 8 (òàëàíòû è ñïîñîáíîñòè): " + IntToStr(T8)
+ "\n \n 9 (êåì áûë â ïðîøëîé æèçíè): " + IntToStr (T9)
+ "\n \n 10 (÷åì çàíèìàëñÿ â ïðîøëîé æèçíè): " + IntToStr (T10)
+ "\n \n 11 (êàðìè÷åñêàÿ çàäà÷à): " + IntToStr (T11)
+ "\n \n 12 (ïñèõè÷åñêàÿ ãàðìîíèÿ, óñëîâèÿ íåîáõîäèìûå äëÿ êîìîôðòà è ñ÷àñòüÿ): " + IntToStr(T12)
+ "\n \n 13 (ñàìîîöåíêà è âíóòðåííåå ñîñòîÿíèå): " + IntToStr(T13)
+ "\n \n 14 (ïîâåäåíèå â îáùåñòâå è îöåíêà ÷åëîâåêà îáùåñòâîì): " + IntToStr(T14)
+ "\n \n 15 (ñïîñîá ïðîðàáîòêè êàðìû): " + IntToStr(T15));

RichEdit->SelStart = 0;
RichEdit->SelLength = 100;
RichEdit->SelAttributes->Style=TFontStyles()>>fsBold;

+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n
+ "\n \n

TStringList *list = new TStringList;
 
list->Add("Расшифровка позиций: \n \n 1 (детство, или первая часть жизни, ориентировочно до 25 лет):" + IntToStr(T1));
list->Add("2 (молодость, или вторая часть жизни, ориентировочно до 50 лет): " + IntToStr(T2));
list->Add("3 (старость, или третья часть жизни, ориентировочно после 50 лет): " + IntToStr(T3));
list->Add("4 (подсознание,* скрытые страхи и комплексы): " + IntToStr(T4) + P4 + P4x + P4e);
list->Add("5 (сознание и система ценностей): " + IntToStr(T5));
list->Add("6 (сверхсознание, духовные покровители и скрытые таланты): " + IntToStr(T6));
list->Add("7 (кармическая задача - области реализации жизненной миссии): " + IntToStr(T7) + P7 + P7x);
list->Add("8 (таланты и способности): " + IntToStr(T8));
list->Add("9 (кем был в прошлой жизни): " + IntToStr (T9));
list->Add("10 (чем занимался в прошлой жизни): " + IntToStr (T10));
list->Add("11 (кармическая задача): " + IntToStr (T11));
list->Add("12 (психическая гармония, условия необходимые для комофрта и счастья): " + IntToStr(T12));
list->Add("13 (самооценка и внутреннее состояние): " + IntToStr(T13));
list->Add("14 (поведение в обществе и оценка человека обществом): " + IntToStr(T14));
list->Add("15 (способ проработки кармы): " + IntToStr(T15)););
 
for (int i = 0; i<list->Count; i++) {
  RichEdit->Lines->Add(list->Strings[i]);
}
 
delete list;

RichEdit1->Lines->Add("Кусочек текста, тут должно быть жирным, тут курсивом, а тут обычное, и еще подчеркнутое тут!");

AnsiString str_bld = "тут должно быть жирным";
AnsiString str_itc = "тут курсивом";
AnsiString str_udl = "подчеркнутое тут";
 
int pos_bld = RichEdit->Text.Pos(str_bld);
int pos_itc = RichEdit->Text.Pos(str_itc);
int pos_udl = RichEdit->Text.Pos(str_uds);
 
int len_bld = str_bld.Length();
int len_itc = str_itc.Length();
int len_udl = str_udl.Length();
 
RichEdit->SelStart = pos_bld;
RichEdit->SelLength = len_bld;
RichEdit->SelAttributes->Style = RichEdit->SelAttributes->Style << fsBold;
 
RichEdit->SelStart = pos_itc;
RichEdit->SelLength = len_itc;
RichEdit->SelAttributes->Style = RichEdit->SelAttributes->Style << fsItalic;
 
RichEdit->SelStart = pos_udl;
RichEdit->SelLength = len_udl;
RichEdit->SelAttributes->Style = RichEdit->SelAttributes->Style << fsUnderline;