Bei einem Text in RichEdit bestimmte Wörter formatieren

[glkgereon]

oh mann

Delphi-Quellcode:

while pos('Scheisse')>0 do
  begin
  RichEdit1.SelStart:=pos('Scheisse');
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttrbutes.Color:=clred;
  RichEdit1.SelAttrbutes.Style:=[saBold];
  end;

kapiert?