[mfcorral]

Prueba lo siguiente

if DataCol = 0 then //Index de la columna que quieres colorear
begin
DBGrid1.Canvas.Brush.Color := clBlue; //Color de fondo
FillRect(DBGrid1.Canvas.Handle, Rect, DBGrid1.Canvas.Brush.Handle);
DBGrid1.Canvas.Font.Color := clRed; //Color de fuente
DBGrid1.Canvas.TextOut(Rect.left + 2, Rect.top + 2, Column.Field.AsString);
end;