1:
2:
3:
4:
5:

für alle Einträge in List1 (Schleife1)
  für alle Einträge in List2 (Schleife2)
    wenn unterschiedliche Zeichen < x, dann...
      beende Schleife2 und starte mit nächstem Eintrag in Schleife 1
  übernimm Eintrag in List2					

1:
2:
3:
4:
5:
6:
7:

abcdef
bcdefa
 Unterschied = 6

abcdef
abcfff
  Unterschied = 2					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:

////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//püft ob der String mind x unterschiednliche Zeichen zu allen anderen Strings im Baum hat
//x = fMinCharDif --> property MinCharDif
//@p: Zeiger auf den String, der geprüft werden soll;
//@result: TRUE, wenn Sring gültig ist und die Bedingungen erfüllt; 
function TStringTree.CheckCharCountDif(p: PAnsiString): Boolean;

  function Check(d, Count: Integer; Item: PStringTreeItem): Boolean;
  var
    c: Byte;
  begin
    result := True;
    if (d > 13) or not Assigned(Item) then begin
      if d > 13 then
        result := False;
      exit;
    end;

    if (p^[d] <> Item^.Value) and (d > 0) then
      inc(Count);

    if Count >= fMinCharDif then
      exit;

    if d = 0 then
      c := Ord(p^[d+1]) - $30
    else
      c := Ord(p^[d]) - $30;
    case c of
      1: begin
        result := Check(d+1, Count, Item^.Children[0]);
        if result then
          result := Check(d+1, Count, Item^.Children[2]);
      end;
      0: begin
        result := Check(d+1, Count, Item^.Children[1]);
        if result then
          result := Check(d+1, Count, Item^.Children[2]);
      end;
      2: begin
        result := Check(d+1, Count, Item^.Children[0]);
        if result then
          result := Check(d+1, Count, Item^.Children[1]);
      end;
    end;
    if result then
      result := Check(d+1, Count, Item^.Children[c]);
  end;

begin
  result := Check(0, 0, fValues);
end;