Probier es mal mit dem Text im Anhang. Bei mir markiert er 26 Wörter. Das letzet "and" findet er im 8. Vers und bei den "rhe"s findet er nur das im Titel. Ach so, in der Liste habe ich zum Testen "and" und "the".
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
var
sl: TStringList;
begin
sl := TStringList.Create;
try
sl.Add('and');
sl.Add('the');
ShowMessage(IntToStr(HighlightWords(RichEdit1, sl, [fsBold, fsUnderline],
clRed)) + ' Wörter markiert');
finally
FreeAndNil(sl);
end;
end;