음 제가 그냥 예제에 있는 디비로 해본거라 그것만 바꾸면 아마 잘 될꺼 예요
모양은 좀더 다듬을 수 있긴 있을 텐데 -_-;;
그럼 소스 뿌립니다.. ^^
=====================================================================

procedure TForm2.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  tmpRect : TRect;
begin
  with TDBGrid(Sender).Canvas do
    begin
       Brush.Style := bsSolid;
       Brush.Color := clWindow;
       FillRect(Rect);
       tmpRect := Rect;

       if (Column.FieldName = 'Qty') then
         begin
           inc(tmpRect.Top,2);
           dec(tmpRect.Bottom,2);
           if column.Field.AsInteger < 3 then
             begin
               Brush.Color := clBlue;
               tmpRect.Right := Rect.Left + round((Rect.Right - Rect.Left) * 0.3);
             end
           else if column.Field.AsInteger < 5 then
             begin
               Brush.Color := clYellow;
               tmpRect.Right := Rect.Left + round((Rect.Right - Rect.Left) * 0.5);
             end
           else
             begin
               Brush.Color := clRed;
               tmpRect.Right := Rect.Left + round((Rect.Right - Rect.Left) * 0.8);
             end;
         end;

       if (gdFocused in State) or (gdSelected in State) then begin
           Brush.Color := clHighlight;
           Font.Color := clHighlightText;
       end;
       FillRect(tmpRect);

       if (Column.FieldName = 'Qty') then
         begin
           Brush.Color := clBlack;
           FrameRect(tmpRect);
         end
       else
         begin
           TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);
         end;
       Brush.Style := bsSolid;
       Brush.Color := clWindow;
   end;
end;

하하~~ 정말기분좋습니다.. 감사하구요..
수고하세요~~^^;