Fórum Sistema Sorteio #357430

[quote:4ffcf2e4ab=´Moderação´][color=red:4ffcf2e4ab]Título editado por Massuda

Por favor, não use apenas letras maiúsculas no título/texto.

No caso de reincidência, seus tópicos poderão vir a ser bloqueados.

Leia as :arrow: [url=http://forum.clubedelphi.net/viewtopic.php?t=6689]Regras de Conduta[/url] do fórum.[/color:4ffcf2e4ab][/quote:4ffcf2e4ab]
A quem puder me ajudar,estou na reta final do curso técnico em inforática,
estou desenvolvendo o tcc, o sistema e o seguinte cadastro as pessoas na entrada do evento
capturo a imagem delas no ato do cadastro e durante a apresestaçao, o sistema fara um sorteio que
trara o nome , foto e data de entrada. É ai que está o problema,´estou usando delphi 7 firibird 1.5
tecnologia dbexpress´ a ideia e o seguinte ter dois clientdataset Um é para abrir e ficar responsável
pela pesquisa e o outro, para efetuar alteração de mudança na tabela assim que um numero for sorteado
a alteração ocorre no campo status da tabela que a pricipio tem armazenado ´0´ e depois de sorteado e atualizada para ´1´
e o sorteio só pega id_visistante com status = 0 mas não sei como continuar, esses são os campos da tabela:

ID_VISITANTEINTEGER
NOMEVACHAR (50)
DT_NASCDATE
H_CHEGADATIMESTAMP
STATUSINTEGER
ID_EVENTO INTERGER

ESSE E O CODIGO QUE COMECEI E NÃO SEI COMO TERMINAR:

procedure Tfrmsorteio.BitBtn1Click(Sender: TObject);
var
I, Y : integer;
begin
Panel4.Visible := True;

DM.Cdsvisitante.Open;
I := DM.Cdsvisitante.RecordCount;
Y := 0;
ProgressBar1.Position := 0;
ProgressBar1.Max := 10;
// Para pegar a quantidade de registro da tabela

for Y := 1 to I do
begin
Sleep(200);
Application.ProcessMessages;
Randomize;
Label2.Caption := IntToStr(random(Y));
Label2.Update;
ProgressBar1.Position := ProgressBar1.Position + 1;
end;
Randomize;
Y := Random(I);

DESDE JÁ OBRIGADO.