Используйте событие PaintPanel:
procedure TForm1.DBCtrlGrid1PaintPanel(DBCtrlGrid: TDBCtrlGrid; Index: Integer);
begin
with DataModule2.Table1 do begin
if FieldByName('INDUSTRY').AsInteger > 3600 then
DBText2.Font.Color := clGreen
else
DBText2.Font.Color := clYellow;
if FieldByName('CUR_PRICE').AsInteger > 50 then
DBText3.Font.Color := clBlue
else
DBText3.Font.Color := clAqua;
if (CompareStr(FieldByName('RCMNDATION').AsString, 'BUY') = 0) then
DBText4.Font.Color := clLime
else if (CompareStr(FieldByName('RCMNDATION').AsString, 'HOLD') = 0) then
DBText4.Font.Color := clRed
else
DBText4.Font.Color := clFuchsia;
end;
end;