Random в Delphi

[oooooo111]

Помогите пожалуйста разобраться с задачкой.
Имееться некий список фамилий, у каждого человека есть какое-то кол-во чего-либо.
1) Иванов - 4 штук
2) Петров - 2 штук
3) Сидоров - 3 штук
Как с помощью Randoma сделать так, чтоб эти фамилии случайным образом расскидывались по общему кол-ву этого "чего-либо". Визуально это выглядит так: (Общее кол-во "чего-либо" = 4+2+3=9, теперь нужно чтоб фамилия Иванов там встречалась 4 раза, Петров 2 рази, и Сидоров 3 раза)

1- Иванов
2- Сидоров
3- Петров
4- Иванов
5- Петров
6- Сидоров
7- Иванов
8- Иванов
9- Сидоров
Думаю смысл понятен? Заранее спасибо за ответы!