[lmikle]

простой и не самый эфф. метод (если правильно понял задачу):

Код:

var
  S : TStringList;
  I, J : Integer;
begin
  S := TStringList.Create;
  Try
    S.Text := StringReplace(Edit1.Text,',',#13#10,[rfReplaceAll]);
    For I := 0 To S.count-2 Do
      For J := I + 1 To S.count-1 Do
        If S[i] = S[J] Then
          Begin
            ShowMessage('Цифра встечается более одного раза: '+ S[i]);
            Exit;
          End;
    ShowMessage('Повторяющихся цифр нет.');
  Finally
    S.Free;
  End;
end;