Sorteio com parâmetros

Galera é o seguinte preciso desenvolver um sistema que faça sorteio de presentes com parâmetros. Pelo que vi a função random no delphi não atende.

Preciso que os funcionários de 3 filiais sejam cadastrados e escolham qual presente quer ganhar ele tem no máximo 3 opções e caso seja sorteado no primeiro presente ele não pode receber outro e preciso que isso seja armazenado no banco mysql.

Tenho também que cadastrar o quantidade de cada presente para ter relatório que quanto sairam e quantos ficaram de saldo.

Alguém tem alguma idéia de como fazer isso?