Ошибка при Выборке

[RandomColor]

я не говорю что он не генерирует, я говорю что генерирует не то что нужно или я да туплю и не пойму куда его вставлять, если можно объясните...

[FataLL]

Там, где у тебя обработчик кнопки "Вибiрка". Всё, что там есть удаляешь и вставляешь то, что я написал. Единственное, что надо добавить, это определение количества чисел. Для этого у тебя есть Edit над Выборкой.

TStringList* sl = new TStringList;
try
{
  sl->Assign( ListBox1->Items );
  int nMax = Edit2->Text.ToInt(); // Как называется Edit?
  for( int i = 0; i < nMax; i++ )
  {
    int nIndex = rand() % sl->Count;
    ListBox2->Items->Add( sl->Strings[ nIndex ] );
    sl->Delete( nIndex );
  }
}
__finally
{
  delete sl;
}

И, повторяю, здесь нет проверок:
1) Что в Edit2 действительно целое число.
2) Что количество случайно выбираемых чисел не больше количества имеемых.
Это всё делай сам...