Sorteio de numero aleatoriamente(Random)

tenho uma tabela chamado sorteio com os seguintes campos:
contador
idusuario
sorteado
Tenho os seguinte registros.

contador:1
idusuario:2
sorteado:N

contador:2
idusuario:500
sorteado:N

contador:3
idusuario:1000
sorteado:N

fiz o seguinte codigo.

Randomize;

for I := 1 to 1000 do begin
vsort:=Random(i);
end;


Mas eu gostaria que fizesse o sorte so dos numeros 2,500 e 1000 e
nao de 1 ate 1000 aleatoriamente



Grato.

Evandro Araujo de Abreu
Cpd - Uniodonto Campinas
E-mail: sistemas@uniodontocamp.com.br
19 - 37314020