procedure TForm1.Generador(iDesde,iHasta,iCuantos: Integer); var i: Integer; begin Randomize; for i := iDesde to iHasta do Memo1.Lines.Add( IntToStr( Random( iCuantos ) + 1 ) ); end;
iDesde : El número donde empezará.
iHasta: El número donde termina.
iCuantos: Aquí es donde colocarás cuantos números existen en la lotto
Modo de uso, Si la lotto de tu país se tiran 6 números entre 49 números a seleccionar entonces sería así:
procedure TForm1.Button1Click(Sender: TObject); begin Generador(1,6,49); end;
Obtendríamos un resultado según la imagen que anexo más abajo.
Enjoy!