Colorir RichEdit

procedure TForm1.btnColorirClick(Sender: TObject);
var
   SelStartBak: integer;
   SelLengthBak: integer;
   SelStartAux: integer;
begin
   SelStartBak := RichEdit1.SelStart;
   SelLengthBak := RichEdit1.SelLength;

   RichEdit1.SelectAll;
   RichEdit1.SelAttributes.Color := clBlack;
   SelStartAux := RichEdit1.FindText('[Lista de Clientes]', 1, Length(RichEdit1.Text), [stWholeWord]);

   while SelStartAux > -1 do
       begin
       RichEdit1.SelStart := SelStartAux;
       RichEdit1.SelLength := Length('[Lista de Clientes]'); // Número de caracteres da palavra
       RichEdit1.SelAttributes.Color := clRed;
       RichEdit1.SelAttributes.Style := [fsBold];
       Inc(SelStartAux, 5); // Posicionar no inicio da palavra
       SelStartAux := RichEdit1.FindText('[Lista de Clientes]', SelStartAux, Length(RichEdit1.Text) - SelStartAux + 1, [stWholeWord]);
       end;
   RichEdit1.SelStart := SelStartBak;
   RichEdit1.SelLength := SelLengthBak;
end;