Fórum Como gerar Números Aleatórios sem repetição em Delphi #561636

 randomize;

    for I := 1 to 9 do
      begin
         n:=Random(9)+1;
          for j := 1 to 9 do
           begin
             if (inttostr(n)=vetor[j].Caption) and (j<>i) then
              begin
                  n:=Random(9)+1;
              end
              else
              vetor[i].Caption:=inttostr(n);

           end;

      end;