Удаление и добавление столбцов и колонок

Code:

Procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);

Var Column: Integer;

begin

If DelColumn <= StrGrid.ColCount then

Begin

   For Column := DelColumn To StrGrid.ColCount-1 do

     StrGrid.Cols[Column-1].Assign(StrGrid.Cols[Column]);

   StrGrid.ColCount := StrGrid.ColCount-1;

End;

end;

Code:

procedure RemoveColumn(SG : TStringGrid; ColNumber : integer);

var Column : integer;

begin

ColNumber := abs(ColNumber);

if ColNumber <= SG.ColCount then begin

    for Column := ColNumber to SG.ColCount - 2 do begin

       SG.Cols[Column].Assign(SG.Cols[Column + 1]);

       SG.Colwidths[Column] := SG.Colwidths[Column + 1];

    end;

    SG.ColCount := SG.ColCount - 1;

end;

end;