[lmikle]

А что должно быть в случае числа, например, 995?
вообще, можно, наверное, тк:

Код:

TDigit = (1,2,3,4,5,6,7,8,9,0);
TDigits = Set Of TDigit;

function ParceDigit(A  :Integer) : TDigits;
begin
  Result := [];
  While A > 0 Do
    Begin
      Result := Result + [A mod 10];
      A := A div 10;
    End;
end;

PS. Не пробовал запускать
По логике - понятно что делается.