Bei einem Text in RichEdit bestimmte Wörter formatieren

[Äfan]

Gut das weiß ich inzwischen auch. Also das prog läuft, nur wenn ich auf denn button klicke hängt sich das prog auf. Hier mal der Code:

Delphi-Quellcode:

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