http://www.delphisources.ru/pages/sources/graph/2006_year/5_cards_poker.html
Вот посмотри исходники на Delphi.