Como eliminar columna se un StringGrid
 

Saludos quisiera saber si alguien me pueda ayudar.
Tego un stringGrid con n columnas, pero me gustaria saber como eliminar la columna que el usuario esta seleccionando.

Ejemplo

Columna1, columna2, Columna3

Si el usuario elimina la columna2 quiero que quede de esta forma Columna1, Columna3.

Estuve viendo en los foros y vi una forma pero no me soluciona el problema. Lo que encontre fue que a la columna dos le pongo el el ColWihts en cero, pero los valores van a segui en la comuna 2 y es lo que no quiero la quiero eliminar completamente.

Esapero haberme explicado bien

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);