Doppelte Einträge in Array finden

[BungeeBug]

HI all,

ich hab den Code nun an meinen Angepasst nur funktioniert dieser leider nicht so wie wer soll.
Es werden von 5 Einträgen 3 als doppelt angezeigt, welche aber garnicht doppelt sein können.
Desweitergen bin ich fast sicher das der Code garnicht alle Einträge durchgeht da z.B.:

Code:

For I := High(A) - 1 downto 0 do

Den letzten Index einfach auslässt.