TStringGrid控件 挪动整行

TStringGrid控件 移动整行
我想实现这样的功能：
我选中某行或者某多行 ，将他们移动到另外的行数。

请问这个功能如何实现啊，求教求教。

[解决办法]
很简单。

C/C++ code

class TCrnStringGrid: public TStringGrid{public:    void __fastcall MoveRow(long FromIndex, long ToIndex)    {        TStringGrid::MoveRow(FromIndex, ToIndex);    }};void __fastcall TfrmTest::Button1Click(TObject *Sender){    // 将第3行换到第4行    ((TCrnStringGrid *)StringGrid1)->MoveRow(2, 3);    // 将第1行换到第5行    ((TCrnStringGrid *)StringGrid1)->MoveRow(0, 4);}