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;
EliminarColumna(StringGrid1,1);