[dr. F.I.N.]

Не учитывая повтор цифр:

Код:

Result := Length(IntToStr(N)); - где N - входное число

Если учитывать повтореняющиеся цифры:

Код:

var
  s: set of char;
i: Integer;
begin
  s := [];
  Result := 0;
  for i := 1 to Length(IntToStr(N)) do
  if not (IntToStr(N)[i] in S) then
  begin
    Inc(Result);
    s := s + [IntToStr(N)[i]];
  end;
end;