Redundanz im String erkennen

[crovex666]

Hallo Leute,
ich habe ein kleines Problem:

Delphi-Quellcode:

For K := 1 to length(Str) do
      For L := 1 to (length(Str)-1) do
          If redundanz[K] = redundanz[L+1] then
            boolRedundanz := True;
  If boolRedundanz = true then
      mmoTipps.Lines.Add('Redundanz tritt im Passswort ein');

In meinem Programm gebe ich z.B. d3f ein und dennoch sagt mir mein Memo, dass Redundanz(Buchstaben Wiederholung) auftritt.
Um die Buchstaben in 'redundanz[]' zu bekommen, gehe ich die Buchstaben mit PosEx durch.

Delphi-Quellcode:

For I := 1 to Length(Str) do
      For J := 1 to Length(KleineBuchstaben) do
        If PosEx(Copy(KleineBuchstaben, J, 1), Copy(Str, I, 1)) <> 0 then
            redundanz[I] := Copy(Str, I, 1);

Ich bin mit F7 durchgegangen, finde den Fehler aber nicht.