TStringGrid редактирование

type
    TStringGridX = class(TStringGrid)
    public
      procedure MoveColumn(FromIndex, ToIndex: Longint);
      procedure MoveRow(FromIndex, ToIndex: Longint);
    end;

  procedure TStringGridX.MoveColumn(FromIndex, ToIndex: Integer);
  begin
    inherited;
  end;

  procedure TStringGridX.MoveRow(FromIndex, ToIndex: Integer);
  begin
    inherited;
  end;

  procedure TForm1.Button1Click(Sender: TObject);
  begin
    TStringGridX(StringGrid1).MoveColumn(1, 3);
  end;