Como mudar a cor de uma regiao de texto richedit?

Var
sStart: word;
begin
sStart := REdit.SelStart;
REdit.SelStart := 6;
REdit.SelLength := 10;
REdit.SelAttributes.color := clBlue; // set color
REdit.SelAttributes.style := [fsUnderline]; // set attributes
Application.Processmessages;
REdit.SelStart := sStart;
REdit.SelLength := 0;
end;