помогие с подзадачей. перебор

есть несколько чисел (допустим 3) нужно чтобы программа вы вела все возможные выборки из них
то-еcть предположим эти числа : 1 2 3. возможные выборки: 1,2,3,12,13,23,123.
(порядок чисел в выборке не важен т. к. это номер значений в massive )
язык delphi7