Все оказалось просто. Если кому вдруг понадобиться:
Код:
procedure TClientContactForm.G1DBTableView1Firm_nameGetDisplayText(
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
var AText: string);
var
AStr, BStr: string;
selection_Start, selection_Length: integer;
begin
inherited;
if ARecord <> nil then begin
AStr := Arecord.Values[G1DBTableView1Firm_name.Index];
BStr := lcbFirm.text;
selection_Start := pos(AnsiUpperCase(BStr), AnsiUpperCase(AStr));
selection_Length := Length(BStr);
RichEdit1.Text:=AStr;
RichEdit1.SelStart :=selection_Start;
RichEdit1.SelLength :=selection_Length;
RichEdit1.SelAttributes.Color := clBlue;
RichEdit1.SelAttributes.Style :=[fsbold];
AText:=RichEdit1.EditValue ;
end;
end;