Acredito que quase todo programador já tentou criar um programa para descobrir(prever) os números da loteria. Abaixo escrevi uma função para gerar uma sequencia de 15 números para a Lotofacil para quem quer  iniciar esta jornada em busca da combinação certa.

function gerar_numero(): String;
   var numeros, saida : TStringlist;
   i : Integer;
   temp : String;
   begin
       numeros := TStringList.Create;
       saida := TStringList.Create;
       numeros.Text := '1'#13'2'#13'3'#13'4'#13'5'#13'6'#13'7'    +
           #13'8'#13'9'#13'10'#13'11'#13'12'#13'13'#13'14'#13'15' +
           #13'16'#13'17'#13'18'#13'19'#13'20'#13'21'#13'22'#13   +
          '23'#13'24'#13'25';
          Randomize;
          try
              for i := 0 to 14 do
              begin
                  temp := numeros.Strings[Random(numeros.Count)];
                  numeros.Delete(numeros.IndexOf(temp));
                  saida.Add(temp);
              end;
              saida.Sort;//ordena os números escolhidos
              result := saida.Text;
          finally
              FreeAndNil(numeros);
              FreeAndNil(saida);
          end;
end;