Bei einem Text in RichEdit bestimmte Wörter formatieren

[Äfan]

PosEx ist Undefinierter Bezeichner.

Also ich habe es jetzt so gemacht:

Delphi-Quellcode:

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

Nur etwas blöd ist, das nicht Scheisse komplett blau wird sondern Scheisse und immer nur das erste Scheisse blau gemacht wird, die anderen werden ignoriert.