for ( i=0;i<100;i++)
{ Application->ProcessMessages();
//RichEdit1->SelAttributes->Color=clRed;
T_Rich_font_1->Color=color_rich;
RichEdit1->SelAttributes->Assign(T_Rich_font_1);
RichEdit1->Lines->Add(soobsch);
}
RichEdit SelAttributes
Код: