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

for i:=anfang to ende do
  for j:=i+1 to ende do 
    if Array[i]=Array[j] then
    begin
      'Jippie, eine doppelte zahl gefunden'
      doppeltezahlen:=einsmehr
    end
ausgabe(doppeltezahlen);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
 Arr: Array[1..100] of integer; //Das Array, wo die Zahlen drinne sind
...
procedure Button1Click(Sender:TObject);
var
  a, b: integer;
begin
 for a := low(Arr) to high(Arr) do
  for b := low(arr) to a-1 do
   if Arr[a] = Arr[b] then
    Listbox1.Items.Add(inttostr(Arr[b]));
end;