Uso de Random

[[Delphius]]

Pues que curioso... no pude entrar a la búsqueda...

Bueno, preparé un ejemplo sencillo, hecho "a medida" para los primeros 10 números.

Código Delphi [-]
type
TNro10 = 1..10;
TTiradas = set of TNro10;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
  i := Random(10) + 1;
  if i in Tiradas
     then ShowMessage('Nro ya repetido: '+IntToStr(i))
     else begin
            include(Tiradas,i);
            ShowMessage('El número es: '+IntToStr(i));
          end;
end;

Espero que sirva de algo... para darse una idea creo que sirve.

Saludos,