anchor.diff:    LCellData, LRow: Variant;
     LColumn : TVisualColumn;
     LStyle : TTextStyle;
  +  LDataTable: PDataTable;
   
     procedure DrawHeaderCell;
     begin
  
positive.code: begin
    LHandled := False;
    if ColCount = 0 then Exit;
    if ARow = 0 then ResizeSearchEdit(ACol);
    LColumn := FColumns[ACol];
    Rect := CalculateCellContentRect(Rect);
  
negative.code:     if LColumn.HasDataFontStyles then Canvas.Font.Style := LColumn.DataFontStyles;
  
      // Get row/cell data
      LRow := LDataTable^.Rows[ARow-1];
      LCellData := TDataRowData(LRow)[LColumn.DisplayBinding];
  
      // Clean data if necessary
  