procedure TRVMarkTextPainter.EnumItemsAdd(RVData: TCustomRVData; ItemNo: integer; var UserData1: integer;
 const UserData2: string; var ContinueEnum: boolean);
var
 s: string;
 pc, pcfound: PChar;
begin
 if RVData.GetItemStyle(ItemNo) < 0 then
  Exit;
 s  := RVData.GetItemText(ItemNo);
 pc := PChar(s);
 pcfound := SearchBuf(pc, System.Length(s), 0, 0, UserData2, [soDown, soWholeWord]);
 while pcfound <> nil do
 begin
  AddRectMark(RVData, ItemNo, pcfound - pc + 1, System.Length(UserData2), TColor(UserData1));
  pcfound := SearchBuf(pcfound + System.Length(UserData2), System.Length(s), 0, 0, UserData2, [soDown, soWholeWord]);
 end;
 ContinueEnum := True;
end;