anchor.diff:      property    Objects[ACol, ARow: Integer]: TObject read GetObjects write SetObjects;
       property    ColumnTitle[ACol: Integer]: string read GetColumnTitle write SetColumnTitle;
       property    ColumnWidth[ACol: Integer]: integer read GetColumnWidth write SetColumnWidth;
  +    property    ColumnAlignment[ACol: Integer]: TAlignment read GetColumnAlignment write SetColumnAlignment;
       property    ColumnBackgroundColor;
       property    ColumnTextColor;
   //    property    Cols[index: Integer]: TStrings read GetCols write SetCols;
  
positive.code:   Result := TfpgStringColumn(FColumns.Items[ACol]).Cells[ARow];
  end;
  
  function TfpgCustomStringGrid.GetColumnTitle(ACol: Integer): string;
  begin
    if ACol > ColumnCount-1 then
  
negative.code:   end;
  
  
    { TfpgCustomStringGrid }
  
    TfpgCustomStringGrid = class(TfpgCustomGrid)
    private
      function    GetCell(ACol, ARow: Integer): string;
      function    GetColumnAlignment(ACol: Integer): TAlignment;
      function    GetColumnTitle(ACol: Integer): string;
      function    GetObjects(ACol, ARow: Integer): TObject;
      procedure   SetCell(ACol, ARow: Integer; const AValue: string);
      procedure   SetColumnAlignment(ACol: Integer; const AValue: TAlignment);
      procedure   SetColumnTitle(ACol: Integer; const AValue: string);
      procedure   SetObjects(ACol, ARow: Integer; const AValue: TObject);
    protected
  