Перемещение строк, столбцов и ячеек

Code:

type TFake = class(TStringGrid);

...

procedure TForm1.Button1Click(Sender: TObject);

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра.}

begin

   TFake(StringGrid1).MoveColumn(1, 3);

end;