Bei einem Text in RichEdit bestimmte Wörter formatieren

[glkgereon]

mann ich bin heut müde....also, nächster versuch:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var temp: integer;
begin
while PosEx('Scheisse',RichEdit1.Text,temp) > 0 do begin
  RichEdit1.SelStart:=pos('Scheisse',RichEdit1.Text);
  RichEdit1.SelLength:=8;
  RichEdit1.SelAttributes.Color := clBlue;
  RichEdit1.SelAttributes.Style := [fsBold, fsItalic];
  temp:=RichEdit1.SelStart;
  end;
end;

oder?