Markere ord i RichEdit

procedure TForm1.Button1Click(Sender: TObject);
begin
  Highlightword(RichEdit1, 'hej');
end;

procedure TForm1.Highlightword(Richedit: TRichEdit; Ord: string);
var
  i: integer;
  text: string;
begin
  text := Richedit.Lines.text;

  Richedit.SelStart := 0;
  Richedit.SelLength := length(text);
  Richedit.SelAttributes.Color := clWindowText;

  for I := 0 to length(text) do
    if copy(text, I, length(Ord)) = Ord then
    begin
      Richedit.SelStart := I - 1;
      Richedit.SelLength := length(ord);
      Richedit.SelAttributes.Color := clred;
    end;
end;


den er casesensitive hvis du ønsker at fjerne dette skal du blot bruge
if lowercase(copy(text, I, length(Ord))) = lowercase(Ord) then