anchor.diff:      CellSelectRadioButton: TRadioButton;
       SingleSelectRadioButton: TRadioButton;
       MultiRowSelectRadioButton: TRadioButton;
  -    VisualGrid1: TVisualGrid;
       procedure FormCreate(Sender: TObject);
       procedure VisualGrid1DrawVisualCell(Sender: TObject; ACol, ARow: Longint;
         Canvas : TCanvas; Rect: TRect; State: TGridDrawState; const RowData: Variant;
         var Handled: boolean);
     private
  +    FVisualGrid: TVisualGrid;
       { Private declarations }
       function GetCapabilities : TArray<TSearchCapability>;
       property Capability : TArray<TSearchCapability> read GetCapabilities;
  
positive.code: 
  var
    Form1: TForm1;
    VisualGrid1: TVisualGrid;
  
  implementation
  
  
negative.code: 
  procedure TForm1.FormCreate(Sender: TObject);
  begin
    FVisualGrid := TVisualGrid.Create(Self);
    FVisualGrid.DataSource := Self;
    GridPanel.AddDockCenter(FVisualGrid);
  end;
  
  procedure TForm1.VisualGrid1DrawVisualCell(Sender: TObject; ACol,
  