Como eliminar columna se un StringGrid

[[seoane]]

A falta de un metodo mejor:

Código Delphi [-]
procedure EliminarColumna(Grid: TStringGrid; Columna: Integer);
var
  i: integer;
begin
  if (Columna >= 0) and (Columna < Grid.ColCount)  then
  begin
    for i:= Columna to Grid.ColCount - 2 do
      Grid.Cols[i].Assign(Grid.Cols[i+1]);
    Grid.ColCount:= Grid.ColCount - 1;
  end;
end;

// Por ejemplo para eliminar a la columna2
EliminarColumna(StringGrid1,1);