Como saber a cor de um caracter dentro de um RichEdit?

var
   Total: Integer;
   nAux: Integer;
begin
   Total := 0;
   for nAux := 0 to Length( richedit1.text ) do
   begin
      Richedit1.selStart := nAux;
      RichEdit1.SelLength := 1;

      if RichEdit1.SelAttributes.Color = clBlue then 
         Inc( Total );
   end;
   ShowMessage( ´Qtdade de caracteres azuis: ´ + IntToStr( Total ) );
end;