anchor.diff:    TVisualGrid = class(TCustomVisualGrid)
     published
       property Align;
  -    property Columns;
       property PageSize;
   
       property OnDrawVisualCell;
  
positive.code: begin
    if ARow = 0 then
    begin
      if ACol < FColumns.Count then
        LText := FColumns[ACol];
      FDrawGrid.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, LText)
    end
    else
  
negative.code: 
  destructor TCustomVisualGrid.Destroy;
  begin
    inherited;
  end;
  
  