anchor.diff:  
   procedure TForm1.FormCreate(Sender: TObject);
   begin
  -  VisualGrid1 := TVisualGrid.Create(Self);
  -  VisualGrid1.DataSource := Self;
  -  GridPanel.AddDockCenter(VisualGrid1);
  +  FVisualGrid := TVisualGrid.Create(Self);
  +  FVisualGrid.DataSource := Self;
  +  GridPanel.AddDockCenter(FVisualGrid);
   end;
   
   procedure TForm1.VisualGrid1DrawVisualCell(Sender: TObject; ACol,
  
positive.code:     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
      { Private declarations }
      function GetCapabilities : TArray<TSearchCapability>;
      property Capability : TArray<TSearchCapability> read GetCapabilities;
  
negative.code: 
  var
    Form1: TForm1;
  
  implementation
  
  