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,