anchor.diff:    Result := TfpgStringColumn(FColumns.Items[ACol]).Cells[ARow];
   end;
   
  +function TfpgCustomStringGrid.GetColumnAlignment(ACol: Integer): TAlignment;
  +begin
  +  if ACol > ColumnCount-1 then
  +    Exit; //==>
  +  Result := TfpgStringColumn(FColumns.Items[ACol]).Alignment;
  +end;
  +
   function TfpgCustomStringGrid.GetColumnTitle(ACol: Integer): string;
   begin
     if ACol > ColumnCount-1 then
  
positive.code:     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    ColumnBackgroundColor;
      property    ColumnTextColor;
  //    property    Cols[index: Integer]: TStrings read GetCols write SetCols;
  
negative.code:     TfpgStringColumn(FColumns.Items[ACol]).Cells[ARow] := AValue;
      EndUpdate;
    end;
  end;
  
  procedure TfpgCustomStringGrid.SetColumnAlignment(ACol: Integer;
    const AValue: TAlignment);
  begin
    if ACol > ColumnCount-1 then
      Exit; //==>
    BeginUpdate;
    TfpgStringColumn(FColumns.Items[ACol]).Alignment := AValue;
    EndUpdate;
  end;
  
  procedure TfpgCustomStringGrid.SetColumnTitle(ACol: Integer; const AValue: string);
  