procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
  R: TRect;
begin
  R := TTmpGrid(DBGrid1).CellRect(3, 2);
  if (Rect.Left = R.Left) and (Rect.Top = R.Top) then
    begin
      (Sender AS TDBGrid).Canvas.Brush.Color := clRed;
      (Sender AS TDBGrid).Canvas.Brush.Style := bsSolid;
      (Sender AS TDBGrid).Canvas.Font.Color := clHighlightText;
      (Sender AS TDBGrid).DefaultDrawColumnCell(Rect,DataCol,Column,State);
    end;
end;