Selected Raw DBGrid

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
if (ADOQuery1['TextDecoded']='text') then
  begin
     ADOQuery1.Canvas.Font.color := clRed;
     ADOQuery1.Canvas.Font.Style := [fsBold];
     ADOQuery1.Canvas.Brush.Color := clYellow;
  end else
end;