Как перемещать строки и колонки в StringGrid 2

Автор: Vit

type
  TFake = class(TStringGrid);
...

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