تلوين كلمات معينة داخل richedit

[jeanjamil]

السلام عليكم
هل من طريقة بسيطة لتلوين كلمات معينة داخل richedit

[Ben.Ja]

أضف عنصر Tcolorbox , ثم في الحدث Onchange الخاص بها اضغط مرتين ثم أدخل هذا الكود

كود :

 if RichEdit1.SelLength > 0 then //كي تعرف انه اختار جزءا من النص,0 تعني لم يختار    RichEdit1.SelAttributes.Color:= ColorBox1.Selected  else  showmessage('First select text!');

[jeanjamil]

شكرا اخي
لكن اقصد ان اضع مجموعة كلمات 
وعند ضغط الزر تتحول الكلمات  الموضوعة مسبقا الى اللون المطلوب

[Mustapha29]

استعمل
SelStart