Permutação

Olá pessoal.

Alguém aí tem uma função ou procedure para realizar permutação?
pretendo utiliza-la em um programa de jogos para desdobramento de números para loteria.

Obrigado pela ajuda que vocês puderem me prestar.