CRIANTO SORTEIO

[dreamsoft_PR]

ola pessoal, alguém ja fez ou tem ideia de como fazer um código  para gerar um sorteio  

a situação e seguinte  vou trazer exemplo 100 registro da tela e entre eles vou sortear 

 

obrigado

[Juliomar Marchetti]

https://www.google.com.br/search?client=opera&q=delphi+random&sourceid=opera&ie=UTF-8&oe=UTF-8

[dreamsoft_PR]

foi umas das coisas que fiz no Google. mas  mostra como gerar números , estou precisando de que por exemplo trago 100 clientes só que cada um tem um código e tenho que sortear entre esses clientes o numero não gerar aleatoriamente essa é duvida. obrigado

na verdade teria que tipo sortear uma posição do registro que vai esta aberto, porque os numero dos clientes varia muito pode ser um que seja o 1 e outro 5000 o outro 30, nao daria pra fazer de 0 ate 50000 porque nao tera toda essa sequencia de clientes o codigo do cliente vai variar muito, entao acho que o legal seria sorterar a posicao do ponteiro listar um count de quanto tem e sortear o ponteiro 

qual comando que uso para trazer o numero da posição de um registro 

[dreamsoft_PR]

ja consegui obrigado rss

antes vou fazer um   ClientDataSet2.RecordCount

 

depois jogo numa variavel quanto que tem registro e numero que parar jogo no recno

 for i := 1 to 5 do
  begin
    int := 1 + Random(100);   //aqui a qtd de registro 
    ShowMessage('int = '+IntToStr(int));
  end;

surgiu um ponto , o cliente que quando dispara o programa mostra esse loop aparecendo a lista como se fosse aquelas maquinas de cassino rodando ate parar , como colocar esse dely no loop?

ou seria possivel mostrar a forma do random rodando ate parar em um