Воть... что-т тип так?
Код:
Var S:String; // строка где будет поиск
Ch:String[1]; // символ поиска
Number,Count,Len,i:Byte;
MoreThenOne:Boolean; // ответ
begin
S:='jasfaf25jkaf53ld22xakh3g2';//ввод строки...мож через TEdit и тп...
Number:=2; // само число
Ch:=IntToStr(Number); // Перевод числа в знак
Len:=Length(S); // Определение длинны строки
For i:=1 to Len do // В цикле мы просматриваем каждый знак строки S
If (S[i] = Ch) then // и если i-тый знак равен числу тогда
Inc(Count); // увеличиваем счетчик на 1
If (Count >= 2) then // если счетчик более или равно 2 тогда
MoreThenOne:=True // ответ - да
Else // в противном случае
MoreThenOne:=False; // нет
End;
Так? Или я что-т не так понял?