RichEdit и выделение цветом только определенных слов

function AddColorText(Text: String; Color: TColor): String;
  begin
    RichEdit1.SelAttributes.Color := Color;
    RichEdit1.SelText := Text;
    RichEdit1.SelAttributes.Color := clBlack;
  end;

RichEdit1.lines.Add(AddColorText('ver', clRed));

unit InfoUPDT;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls;
 
type
  TufInfoUPDT = class(TForm)
    RichEdit1: TRichEdit;
    Edit1: TEdit;
    procedure FormShow(Sender: TObject);
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  ufInfoUPDT: TufInfoUPDT;
 
implementation
 
{$R *.dfm}
 
uses Main;
 
procedure TufInfoUPDT.FormShow(Sender: TObject);
begin
  RichEdit1.lines.loadFromFile('T:\eOriginal\Update\Update.txt');
  MarkAllWords(RichEdit1, 'ver', clRed);
 end;
 
procedure MarkAllWords(RE: TRichEdit; TheWord: String; Color: TColor);
var
  i, CharPos, CharPos2, noChars: integer;
begin
  CharPos := 0;
  noChars := 0;
  for i := 0 to Pred(RE.lines.Count) do
    noChars := noChars + Length(RE.lines[i]);
  repeat
    CharPos2 := RE.FindText(TheWord, CharPos, noChars, [stWholeWord]);
    CharPos := CharPos2 + 1;
    RE.SelStart := CharPos2;
    RE.SelLength := Length(TheWord);
    RE.SelAttributes.Color := Color;
  until CharPos = 0;
end;
 
end.

procedure TufInfoUPDT.FormShow(Sender: TObject);
begin
  RichEdit1.Clear; //добавил очистку перед открытием
  RichEdit1.lines.loadFromFile('T:\eOriginal\Update\Update.txt');
  MarkAllWords(RichEdit1, 'ver.', clRed);
end;