[NIch]

Элеменатрно...

Код:

//Есть число n
var
 n : Word;//число
 s : String;//строка-массив символов
 i, j : word;
 check : boolean;
begin
 Check := True;
 s := IntToStr;//перевести число в строку
 for i := 0 to Length(s)-1 do//от нуля до конца строки
  for j := i to Length(s)-1 do//от определенного символа до конца строки 
   if S[i]=S[j] then//если определенный символ совпадает с любым остальным
    Check := false;//то проверка не пройдена
 if Check then//если проверка пройдена
  ShowMessage('Сопадений нет')
 else//если проверка не пройдена
  ShowMessage('Совпадения есть');
end;

Код написпал "на коленке", т.е. нужно его потестить...но направление верное...