TStringGrid控件 搬动整行

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

请问这个功能如何实现啊，求教求教。
[解决办法]
很简单。

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);
}