Сравнение составляющих знаков числа в Edit и вывод результата

[RomashkaGT]

добрый вечер. недавно начал осваивать дельфи, поэтому, собственно, есть вопросик. поставлена такая задача: определить, есть ли среди цифр заданного трехзначного числа, одинаковые.
____________
поподробней: в проге мы вводим в эдит трехзначное число. при нажатии на кнопку сравнения мы должны получить определенный результат проверки чисел и вывести сообщение шоумесседжем- есть ли в трехзначном числе повторяющиеся составляющие знаки или нет. например вводим число 554, получаем сообщение, что есть одинаковые числа).
Собственно вопрос: как осуществить сравнение каждого символа из составляющего числа между собой?

[Stilet]

Обьясняю стратегию:
1) Ведешь массив типа integer с границами: a:array['0'..'9'] of integer;
2) Когда чето вводишь в Эдит увеличивай элемент массива, по индексу введенного:
inc(a[c]) - где c - вновь введенный в Эдит символ, и проверенный что он представляет цифру.

3) в Цикле пройди и проверь - если хотя бы один из массива элемент более 1 то значит введенных цифр, несколько.

Уловил месседж?

[RomashkaGT]

Stilet
вот я объявил в варе массив. в кнопку сравнения я включаю цикл условия от 1 до 3. далее чего-то я месседж не уловил)) не ругайтесь сильно

[Stilet]

а дальше так:

with Edit1 do 
 for i:=1 to length(text) do begin
  if i>3 then break;
   inc(Массив[text[i]]);
  if Массив[text[i]]>1 then begin
   Типа введено несколько символов text[i]
  end;
 end;

Таким образом получаешь в Массиве кол-во символов-цифр, соответственно индексам.
И сразу же можно проверить сколько уже символов похожих на проверяемый в цикле было обнаруженно.
Ферштейнышко?