Hola,
Si pones un botón al lado del "RichEdit" y usas su evento "OnClick" para:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.SelAttributes.Color := clRed;
RichEdit1.SetFocus();
end;
Verás, que, después de pulsar el botón, el texto que escribas en el "RichEdit" será "rojo", en este caso. "SelAttributes" se aplica al texto seleccionado, o, si no hubiera texto seleccionado, al texto "a partir de la posición en que se encuentre el cursor", si no me equivoco.