como montar uma tabela de sorteio delphi

Delphi

27/09/2014

ola pessoal preciso montar uma tabela que faça o seguinte tipo de sorteio.
tenho varios competidor que irão participar da prova
sendo que cada competidor ira correr cinco vezes cada. mais eu tenho que fazer os sorteios antes de começa a prova .
para cada competidor saber a posiçao que ira correr. o sorteio é o seguinte 1º passada corre todos. 2º passada corre todos .3º 4º e 5º passada corre todos
sabendo que cada passada corre de 10 em 10 competidor. corre 10 depois troca corre mais 10 e assim por diante ate todos terem corrido 5 vezes cada.
funciona assim, sendo se um competidor correr uma vez em 1º nas outras passada não podera correr mais em primeiro
exemplo: com 15 competidor mais nao tem limite de inscriçao

1º BATERIA--------nome-- passada-- tempo
1º ------------ fulano 9------- 1--------14,250
2º fulano 13- 1
3º fulano 4- 1
4º fulano 3- 1
5º fulano 2- 1
6º fulano 8- 1
7º fulano 14- 1
8º fulano 11- 1
9º fulano 1- 1
10º fulano 5- 1
2º BATERIA
1º fulano 7- 1
2º fulano 6- 1
3º fulano 12- 1
4º fulano 10- 1
5º fulano 13- 2
6º fulano 3- 2
7º fulano 1- 2
8º fulano 2- 2
9º fulano 14- 2
10º fulano 4- 2
3º BATERIA
1º fulano 6- 2
2º fulano 10- 2
3º fulano 5- 2
4º fulano 12- 2
5º fulano 7- 2
6º fulano 8- 2
7º fulano 9- 2
8º fulano 11- 2
Marcelo D.campos

Marcelo D.campos

Curtidas 0
POSTAR