label dinamico

[wurilo]

Boa noite a todos...beleza?

Estou fazendo um programa tipo olimpiadas, caso haja empate na pontuação dos usuarios terei que ter um criterio de desempate, estava tentando fazer assim:

Quando o form de desempate for aberto ele tera um grid com os nomes do pasticipantes empatados, na sequencia ele teria que criar labels com a qtd certa de participantes empatados, e aparecer no form, depois eu teria que fazer tipo um sorteio entre os nome dos partic. empatados para saber quem é o ganhador, estava tentando assim:

procedure Tform_Desempate.BitBtn1Click(Sender: TObject);
var
i, edt : integer;
lbl : tLabel;
begin
 edt:= strToInt(Edit1.Text);
 for i:=0 to edt do
  begin
   lbl := TLabel.Create(self);
   lbl.parent := form_Desempate;
   lbl.visible := true;
   lbl.Caption:= DBGrid1.DataSource.DataSet.fieldbyname('NOME_ALUNO').AsString;
//     ClientDataSet_desempate.Next;
  end;
i:=i+1;
end;
end.

ele até pega o valor do grid, mas somente o primeiro, não cria os demais, não sei porque... alguem teria alguma solução, estou usando delphi 07 e firebird 2.0///

valeu...obrigado..