procedure TzManagement.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
with DBGrid1.Canvas do
 begin
  // 先預設顏色
  if GDSelected in State then // Select光棒停在此Cell
   begin
    Font.Color:=clHighLightText; // 正常的DBGrid顏色
    Brush.Color:=$007D3F00; // 正常的DBGrid顏色
   end
   else begin // Select光棒未停在此Cell
    Font.Color:=clBlack; // 正常的DBGrid顏色
    Brush.color:=clWhite; // 正常的DBGrid顏色
   end;
  // 設定指定Cell的顏色
//  if DataCol=1 then // 第二個欄位
  if (GDSelected in State) then // Select光棒停在此Cell
   begin
    if ((Sender as TDBGrid).DataSource.DataSet.FieldByName('Payed').AsInteger>=10)
     then Brush.Color:=$007D3F00;// 字變紅色加一點白色調(這樣反白效果才會好)
   end
   else begin // Select光棒未停在此Cell
    if ((Sender as TDBGrid).DataSource.DataSet.FieldByName('Payed').AsInteger>=10)
      then Brush.Color:=$00A4A4FF; // 字變紅色
   end;
      // 一定要執行繪圖的動作
  DbGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,[]);
 end;
end;