Doppelte Zahlen finden

[rambospike]

Hier habe ich mal den bisherigen Quellcode, damit ihr euch ein Bild machen könnt:

begin

//Der Focus wird ins Eingabefeld gelegt
edit1.SetFocus;

// Die erste Zahl wird ermittelt.
Zahl1:=strtoint(edit1.Text);

//Die Zahlen werden um 1 verschoben.
Zahl51:=Zahl50;
Zahl50:=Zahl49;
Zahl49:=Zahl48;
Zahl48:=Zahl47;
Zahl47:=Zahl46;
Zahl46:=Zahl45;
Zahl45:=Zahl44;
Zahl44:=Zahl43;
Zahl43:=Zahl42;
Zahl42:=Zahl41;
Zahl41:=Zahl40;
Zahl40:=Zahl39;
Zahl39:=Zahl38;
Zahl38:=Zahl37;
Zahl37:=Zahl36;
Zahl36:=Zahl35;
Zahl35:=Zahl34;
Zahl34:=Zahl33;
Zahl33:=Zahl32;
Zahl32:=Zahl31;
Zahl31:=Zahl30;
Zahl30:=Zahl29;
Zahl29:=Zahl28;
Zahl28:=Zahl27;
Zahl27:=Zahl26;
Zahl26:=Zahl25;
Zahl25:=Zahl24;
Zahl24:=Zahl23;
Zahl23:=Zahl22;
Zahl22:=Zahl21;
Zahl21:=Zahl20;
Zahl20:=Zahl19;
Zahl19:=Zahl18;
Zahl18:=Zahl17;
Zahl17:=Zahl16;
Zahl16:=Zahl15;
Zahl15:=Zahl14;
Zahl14:=Zahl13;
Zahl13:=Zahl12;
Zahl12:=Zahl11;
Zahl11:=Zahl10;
Zahl10:=Zahl9;
Zahl9:=Zahl8;
Zahl8:=Zahl7;
Zahl7:=Zahl6;
Zahl6:=Zahl5;
Zahl5:=Zahl4;
Zahl4:=Zahl3;
Zahl3:=Zahl2;
Zahl2:=Zahl1;

Ab hier sollen dann die Zwillinge ermittelt werden.