[Loviedo]

Prueba esto a ver si te sirve.

Código Delphi [-]
procedure TFLdiario1.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  if DM.Query4TITULO.Text = 'Deudores' then
    TDBGrid(Sender).Canvas.Font.Color := clRed
  else if DM.Query4COMUNES.Text = 'X' then
    TDBGrid(Sender).Canvas.Font.Color := clBlue;
  if gdSelected in State then
    if (DM.Query4TITULO.Text = 'Deudores') or (DM.Query4COMUNES.Text = 'X')then
      TDBGrid(sender).Canvas.Font.Color := clYellow;
  TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

saludos.