광배님의 말씀대로

  if DG_BrwBom.Fields[0].AsString = 'ENGDIC' then
     DG_BrwBom.Canvas.Brush.Color :=clYellow
  else if DG_BrwBom.Fields[0].AsString = 'KORDIC' then
     DG_BrwBom.Canvas.Brush.Color :=clWhite;
  DG_BrwBom.DefaultDrawColumnCell(Rect, DataCol, Column,[]);

이렇게 하니까 단숨에 해굘되었슴니다.
넘 감사 합니다. (어제 밤새 삽질 했는데,...)

hsr////////////////////////////////////////////////////////
DrawDataCell이벤트를 사용하셔도 됩니다.

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
  with TDBGrid(Sender) do begin
      if (Fields[0].AsString = 'KORDIC')or(Fields[0].AsString = 'ENGDIC') then begin
         if Fields[0].AsString = 'ENGDIC' then
             Canvas.Brush.Color := clYellow
         else
             Canvas.Brush.Color := clRed;
         Canvas.Font.Color  := clBlack;
         Canvas.FillRect(Rect);
         //필드타입에 따라 다시쓰는 위치를 조정하세요.
         if Field.DataType in [ftSmallint, ftInteger, ftWord, ftFloat]  then //숫자종류시 오른쪽정렬(필요시 타입 추가하세요)
            canvas.TextRect(Rect, Rect.Right - canvas.TextWidth(Field.AsString) - 3, Rect.Top, Field.AsString)            
         else  //왼쪽정렬
             canvas.TextRect(Rect, Rect.Left + 2, Rect.Top, Field.AsString);
            
      end;
   end;
end;

Source그대로 사용할수 있어서 넘 감사합니다.

DBGRID의 DBGrid1DrawColumnCell 이벤에 아래와 같이 작성하세요..
  if 분류코드='ENGDIC' then
     DBGrid1.Canvas.Font.Color:=clYellow
  else if 분류코드='KORDIC' then
     DBGrid1.Canvas.Font.Color:=clRed;
  DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column,[]);