Pues lo primero que veo es que no quitas la selección antes de seguir escribiendo,ni tampoco quitas el estilo negrita ,debes agrgar a tu código algo así como:
Código Delphi
[-]
RichEdit1.SelStart := length(RichEdit1.Text) with RichEdit1.SelAttributes do
Style := Style - [fsBold];
Espero te funcione.
Saludos.