procedure 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 := clblue;
    end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  Highlightword(RichEdit1, 'begin');
  Highlightword(RichEdit1, 'end');
end;