Algoritmo de probabilidade em delphi

Alguem sabe como fazer um algoritmo em delphi para calcular as probalidades como neste site?

http://www.lotocarva.com/index.php?option=com_content&task=category&sectionid=62&id=180&Itemid=138