Fórum Ajuda no código de um Sorteio #418161

{
  qt := 0;
  i := 0;
  for i := low(times) to high(times) do
    times[i] := -1;
    ShowMessage(IntToStr(times[i]));

    while qt <= high(times) do
    begin
    n := random(high(times)+1) + 1;
    ShowMessage(IntToStr(n));
    achou := false;
    for i:=low(times) to high(times) do
      if times[i] = n then
        achou := true;
      if not achou then
        begin
          times[qt] := n;
          ShowMessage(IntToStr(times[qt]));
          qt := qt + 1;
        end;
    end;

  total := trunc((high(times)-1)/2);

  //ShowMessage(IntToStr(total));

  for i := 0 to total do
  begin
    StringGridJogos.Cells[0,i+1] := Time  + inttostr(times[i]);
    StringGridJogos.Cells[1,i+1] :=        x;
    StringGridJogos.Cells[2,i+1] := Time  + inttostr(times[total+i+1]);
  end;
  }

var
  Times: array of string;
  PegaTimes: array of String;
  i, qt, n, total: integer;
  UltIndex: Integer;
  achou: boolean;
begin
  Randomize;
  //SetLength(times, QuantTime);
  SetLength(PegaTimes, QuantTime);
  SetLength(Times, QuantTime);

  i := 0;
  UltIndex := ListBoxTimes.Items.Count;
  ShowMessage(IntToStr(UltIndex));

  for i := 0 to UltIndex - 1 do
  begin
    ListBoxTimes.ItemIndex := Random(UltIndex);
    PegaTimes[i] :=  ListBoxTimes.Items.Strings[ListBoxTimes.ItemIndex];
    //ShowMessage(pegatimes[i]);
    times[i] := PegaTimes[i];
    //StringGridJogos.Cells[1,i+1] :=        x;
  end;

  // Agora PREENCHE As células do GRID
  for i := 0 to UltIndex - 1 do
  begin
    ShowMessage(PegaTimes[i] +    + PegaTimes[n]);
    for n := 0 to UltIndex do
      if ((PegaTimes[i] = PegaTimes[n]) or (n < 1)) then
      begin
        achou := true;
      end;
      achou := true;
      if not achou then
      begin
        StringGridJogos.Cells[2,i+1] := PegaTimes[i];
        StringGridJogos.Cells[0,i+1] := PegaTimes[i];
        StringGridJogos.Cells[1,i+1] :=        x;
      end;
  end;