Doppelte Einträge in Array finden

[BungeeBug]

Delphi-Quellcode:

// Gleiche Datein suchen
     FOR i := 0 TO High(MyHashArray) DO
      BEGIN
       j := 0;
       WHILE j <= High(MyHashArray) DO
        BEGIN
          // Sind die Eintrage die selben?
          IF i <> j THEN
           BEGIN
            IF MD5DigestCompare(MyHashArray[i],MyHashArray[j]) THEN // Vergleichen
             BEGIN
              Form1.CheckListBox1.Items.Add(Form1.ListBox1.Items[j]);
              // Doppelten Hashentfernen
               FOR k := j TO High(MyHashArray) DO // Folgende doppelte Einträge entfernen
                BEGIN
                 MyHashArray[k] := MyHashArray[k+1];
                END;
              // SetLength(MyHashArray,High(MyHashArray)-1); // <- E/A Fehler
              j := 0;
             END;
           END;
         inc(j);
        END;
       END;

Ich hab aber nich wirklich den Durchblick ... da kann auch sonst der ein oder ander Fehler drin sein.