Случайный выбор из значений

TStringList *sList;

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    sList = new TStringList();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    StringGrid1->ColCount = Edit1->Text.ToInt();
    for (int i = 0; i < Edit1->Text.ToInt(); i++) {
        sList->Add(IntToStr(rand()%1000));
        StringGrid1->Cells[i][0] = i+1;
        StringGrid1->Cells[i][1] = sList->Strings[i];
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if (sList->Count > 0) {
        int index = rand()%sList->Count;
        ShowMessage(sList->Strings[index]);
        sList->Delete(index);
        StringGrid1->ColCount = sList->Count;
        for (int i = 0; i < sList->Count; i++) {
            StringGrid1->Cells[i][0] = i+1;
            StringGrid1->Cells[i][1] = sList->Strings[i];
        }
    } else {
        ShowMessage("Элементы отсутствуют");
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete sList;
    sList = NULL;
}
//---------------------------------------------------------------------------