Color a part of my DB results with a TDbAdvGrid

After a button is cliked, the TADOQuery returns values that contain the search Text.
Exemple :
select * from XXX where REF like ('%PRO%') , return only values that contain 'PRO'.

I try to change the color of the search text on my Query values to clearely identify them. (like the Hightlight process when you search a text in your Delphi's Unit)
Can you help me. I don't know to do.
PS : I use a TDbADVGrid and the type of my data values are String.

If you want to highlight just the part PRO in the text, you could implement the event OnGetDisplText() and use the function HiLight that is in AsgHTMLE.pas:

function HiLight(s,h,tag:string;DoCase:boolean):string;


procedure TForm1.AdvStringGrid1GetDisplText(Sender: TObject; ACol,
  ARow: Integer; var Value: string);
  Value := Hilight(Value,'PRO','hi');