Вот на этом сайте есть код к карточной игр в дурака
http://sebco.narod.ru/
сама ссылка для скачивания
http://sebco.narod.ru/Source.zip
код написан на С++, ну думаю на дельфи перевести не составит труда, главное понять принцип.
На этом же коде написана другая известная игра в дурака
http://www.durbetsel.ru