Bei einem Text in RichEdit bestimmte Wörter formatieren

[Ultimator]

Probiers mal so:

Delphi-Quellcode:

if pos('Scheisse',RichEdit1.Text) > 0 then 
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text)-1; //-1 nicht vergessen ;-)
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold];