음냐 요즘 이상하게 DBGrid 쪽 질문이 많이 들어 오네요..
아래 소스를 보면 아시겠지만
그냥 MoveTo LineTo 함수로 그려 줍니다.. ^^
바라고 계신게 이건지 정확하게 모르겠네요.. ^^
그럼 소스보고 확인해 주세요.. ^^

/////////////////////////////////////////////////////////////////
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 (gdFocused in State) or (gdSelected in State) then begin
           Brush.Color := clHighlight;
           Font.Color := clHighlightText;
       end;

       if (Column.FieldName = 'Qty') then
         begin
           if column.Field.AsInteger < 5 then
             begin
                Pen.Color := clRed;
                MoveTo(Rect.left,Rect.bottom);
                LineTo(Rect.right,Rect.bottom);
             end
         end;

       TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);

       Brush.Style := bsSolid;
       Pen.Color   := clGray;
       Brush.Color := clWindow;
   end;
end;

제가 설명을 제대로 못한거 같네요
주신 소스는 해당 Cell 아래라인에 색깔이 들어가는거 같아요

다시 질문할께요 DBGrid에서 특정값일때 해당raw 전체
아래 라인에 색깔넣기를 하고 싶어요

죄송한데... 다시 질문할께요

아 그런거 같더니 그거 였군요..
더 쉽죠.. 그게
음 아래 와 같이 해주세요.. 물론 뭐 값 비교하는건 알아서 하시면될 꺼 같구요..
그럼 안녕히 ^^
///////////////////////////////////////////////////////////////////
procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (DBGrid1.DataSource.DataSet.FieldByName('Qty').AsInteger < 5) then
    begin
      DBGrid1.Canvas.Pen.Color := clRed;
      DBGrid1.Canvas.MoveTo(Rect.left,Rect.bottom);
      DBGrid1.Canvas.LineTo(Rect.right,Rect.bottom);
    end;
  DBGrid1.Canvas.Pen.Color   := clGray;
end;