전체 필드나 전체 레코드가 바뀐건 님께서 루틴을 잘못만드신걸로
보이네요..
밑에 있는 루틴은 참고 하라는 내용인데 저걸 이용해서 만드시면 되는데
아마 잘못보신것 같군요..
조금 수정해 드릴께요. ㅠㅠ
   with TDBGrid(Sender).Canvas do begin
       // 현재 필드를 검사하구요
       if (Column.FieldName = 'FILEDNAME') and (State = []) then begin
           Brush.Color := clYellow;
           Font.Color := clBlack;
       end
       else begin
           Brush.Color := clWindow;
           Font.Color := clWindowText;
       end;
       // 만약에 포커스가 있거나 선택되어 있으면 다르게 표시하라는거죠
       // 이건 평범한 그리드가 이렇게 되어잇는거죠..
       if (gdFocused in State) or (gdSelected in State) then begin
           Brush.Color := clHighlight;
           Font.Color := clHighlightText;
       end;
       /// 이 아래는 실제로 그리는 루틴입니다.
      // 사각형을 그리고 Text를 뿌려주는거죠..
       FillRect(Rect);
       TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);
       Brush.Style := bsSolid;
       Brush.Color := clWindow;
   end;

님의 경우는 저 루틴이 좀 바뀌어야 합니다.
우선 값은 퍼센트필드이고 그려주는건 레이트 필드니까..
if (Column.FieldName = 'RATE')  then
begin
  // 그럼 레이트인 경우는 님의 경우는 퍼센트값을 불러와야죠....
  fPercent := Query1.FieldbyName('percent').AsInteger;
  if  fPercent <= 75 then
begin
  //
           Brush.Color := clBlue;
end else if fpercent <= 83 then
begin
           Brush.Color := clYellow;
end else begin
           Brush.Color := clRed;
end;
   FillRect(Rect);
이렇게 해주심 되겠네요..

end else begin
  // 필드가 레이트가 아니라면 일반적인 루틴을 타도록 하면 되겟죠?
  // 포커스 여부를 따져서 파란색 혹은 하얀색으로 그려주면 되겠죠?
       if (gdFocused in State) or (gdSelected in State) then
       begin
           Brush.Color := clHighlight;
           Font.Color := clHighlightText;
       end else begin
          Brush.Color := clWindow;
          Font.Color := clWindowText;
       end;
   FillRect(Rect);
   TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);
   Brush.Style := bsSolid;
   Brush.Color := clWindow;
end;

확인해보지 않아서 맞는지 모르겠는데 루틴은 저런식으로 만드시면 될것 같네요.
그럼..

다른 분이 해주신거에서 조금만 고치면 되는건데 -_-;;

아래 고친 거 입니다. 잘만 확인 하시면 바로 활용가능 하실 겁니다.
================================================================

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
   with TDBGrid(Sender).Canvas do begin
       if (Column.FieldName = 'FIELD_NAME') then
         begin
           if column.Field.AsInteger > 80 then
             begin
               Brush.Color := clBlue;
               Font.Color := clBlack;
             end
           else if column.Field.AsInteger > 50 then
             begin
               Brush.Color := clYellow;
               Font.Color := clBlack;
             end
           else
             begin
               Brush.Color := clRed;
               Font.Color := clBlack;
             end;
         end;

       if (gdFocused in State) or (gdSelected in State) then begin
           Brush.Color := clHighlight;
           Font.Color := clHighlightText;
       end;
       FillRect(Rect);
       TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);
       Brush.Style := bsSolid;
       Brush.Color := clWindow;
   end;
end;

아~~ 이제 정말 잘되네요... 갑자기 프로그램을 만들다보니..
모르는것이 너무 많아서. 헤헤..
답변주신분들 정말 복많이 받으세요...^^;