if richedit1.Text=richedit1.SelText then
begin

richedit1.Font.Color:=suicolorbox1.Selected;
end
else
begin
richedit1.Font.Color:=clblack;
end;

burda ben richedit icerisindeki yazı secildiğinde istenilen rengi nasıl atarım
__________________