Перемешать строки в StringGrid

    TStringList *L = new TStringList;
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        L->Add(StringGrid1->Rows[i]->CommaText);
    for(int i = 0; i < L->Count; i++)
        L->Exchange(Random(L->Count), Random(L->Count));
    for(int i = StringGrid1->FixedRows; i < StringGrid1->RowCount; i++)
        StringGrid1->Rows[i]->CommaText = L->Strings[i - StringGrid1->FixedRows];
    delete L;

int __fastcall HoaticSort( TStringList *sl, int numRow1, int numRow2 )
{
return  random( Now().Val ) > random( Now().Val ) ? 1: -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
std::auto_ptr<TStringList> sl( new TStringList() );
 
for( int count=0; count<StringGrid1->RowCount; count++ )
  sl->Add( StringGrid1->Rows[count]->CommaText );
 
sl->CustomSort( HoaticSort );
 
for( int count=0; count<StringGrid1->RowCount; count++ )
  StringGrid1->Rows[count]->CommaText = sl->Strings[count];
}

class t_open_grid : public TStringGrid
{
public:
    using TStringGrid::MoveRow;
};
//...
t_open_grid *og( StringGrid1 );
Randomize( );
for( int fr( og->FixedRows ), i( fr ), i_limit( og->RowCount ); i < i_limit; ++i )
{
    og->MoveRow( i, Random( i_limit - fr ) + fr );
}