[kwan]

De nuevo Gracias por vuestras respuestas, pero lo que en verdad estaba buscando era lo que encontre en el link que puse la unica pega era la que se repetia siempre lo mismo, pero con vuestra respuesta he abierto los ojo y le puse el randomize en esta parte del codigo.
procedure TForm1.Button1Click(Sender: TObject);
var
Ristra : TAlea;
n : integer;
begin
RichEdit1.Lines.Clear;

Ristra:=TAlea.Create(10);
randomize;
for n:=1 to 10 do begin
RichEdit1.Lines.Add( IntToStr(Ristra.PillaNumero) );

con lo que ya no se repite siempre la misma combinación, y cambie el memo por un RichEdit, bueno por los font.

Una ultima pregunta, como podria hacer que el "create(10)" y "1 to 10" lo pudiera controlar desde un edit, para poner el numero de participantes desde el edit???



Gracias por todo.

Saludos
Kwan.