procedure Twonjang6F.DrawField(const Value : String; const Rect : TRect;
          vCanvas : TCanvas; vFont: TFont; vAlignment: TAlignment;
          FontStyle : TFontStyles; FontColor : TColor; BGColor : TColor);
var I : Integer;
begin
  I := 0;
  vCanvas.FillRect(Rect);
  SetBkMode(Canvas.Handle, TRANSPARENT);
  vCanvas.Font := vFont;
  vCanvas.Font.Style := FontStyle;
  vCanvas.Font.Color := FontColor;
  vCanvas.brush.Color := BGColor;
  case vAlignment of
    taRightJustify :
      begin
        SetTextAlign(vCanvas.Handle, TA_RIGHT);
        I := Rect.Right - 2;
      end;

    taLeftJustify :
      begin
        SetTextAlign(vCanvas.Handle, TA_LEFT);
        I := Rect.Left + 2;
      end;

    taCenter      :
      begin
        SetTextAlign(vCanvas.Handle, TA_CENTER);
        I := (Rect.Right + Rect.Left) DIV 2;
      end;
  end;
  vCanvas.TextRect(Rect, I, Rect.Top + 2, Value);
  SetTextAlign(vCanvas.Handle, TA_LEFT);
end;

procedure Twonjang6F.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  with Sender as TDBGrid, DataSource.DataSet do
     if FieldByName('gub1').AsString = '@' then
        DrawField(Column.Field.DisplayText, Rect, Canvas, Column.Font, Column.Alignment, [], clBlue, clWindow);
end;

보통 위의 형식으로 행의 색은 바꾸었는데 특정열 즉, 특정 필드의 글자들만 색상을 바꾸고 싶습니다...
예를 들어 a1, a2, a3, a4... 등의 필드가 있고 이것이 모두 DBGrid에 표시가 된다면 이중 a2필드의 글자들만 window바탕에 파란색으로 표시하고 싶습니다... 나머지는 물론 자연 그대로 표시하구요...
어떻게 할까요??