Код:
// Свойство SelAttributes определяет атрибуты выбранного текста в элементе
// управления редактированием с форматированием.
// Color - свойство атрибута отвечающее за цвет текста
// При нажатии на кнопку ButtonColor
procedure TForm1.ButtonColor1Click(Sender: TObject);
begin
//для RichEdit1 устанавливаем выбранный цвет
// ButtonColor1.SymbolColor- возвращет выбранный цвет
RichEdit1.SelAttributes.Color:=ButtonColor1.SymbolColor;
end;
Пример с использованием TButtonColor