delphi RichEdit 批量关键词变色

Procedure MarkString(RichEdit:TRichEdit;strtomark : string);

Var

FoundAt,maxInt : integer;

begin

    FoundAt:=RichEdit.FindText(strtomark,0,maxInt,[stWholeWord]);

    while FoundAt <> -1 do

    begin

             RichEdit.SelStart := FoundAt;

             RichEdit.SelLength := Length(strtomark);

             RichEdit.SelAttributes.Style := [fsBold];

             RichEdit.SelAttributes.Color := clRed;

             RichEdit.SelText :=strtomark;

             FoundAt:=RichEdit.FindText(strtomark,FoundAt + length(strtomark),maxInt,[stWholeWord]);

    end;

end;

Procedure UnMarkString(RichEdit:TRichEdit;strtomark : string);

Var

FoundAt : integer;

begin

    FoundAt:=RichEdit.FindText(strtomark,0,maxInt,[stWholeWord]);

    while FoundAt <> -1 do

    begin

             RichEdit.SelStart := FoundAt;

             RichEdit.SelLength := Length(strtomark);

             RichEdit.SelAttributes.Style := [];

             RichEdit.SelAttributes.Color := clBlack;

             RichEdit.SelText :=strtomark;

             FoundAt:=RichEdit.FindText(strtomark,FoundAt + length(strtomark),maxInt,[stWholeWord]);

    end;

end;