Programa de números repetidos?

[TheBlackUnix]

xDDD no hay problema.. Mira mi codigo hasta ahora es así..
Actualmente el programa me dice cuanto repetidos hay, pero solo si se encuentran en el mismo orden.. Osea si esta por ejemplo así:
Edit1 : 1989
Edit2: 1989
Numero de repetidos : 4
Pero yo busco que me lo muestre aun esten en diferentes orden..
En cuanto a la versión de Delphi, tengo la V5..
Mi codigo actualmente:

a:=0;
IF copy(edit1.text,1,1)= copy(edit2.text,1,1) then
a:=a +1;
IF copy(edit1.text,2,1)= copy(edit2.text,2,1) then
a:=a +1;
if copy(edit1.text,3,1) = copy(edit2.text,3,1) then
a:=a+1;
if copy(edit1.text,4,1) = copy(edit2.text,4,1) then
a:=a+1;
edit3.text:=inttostr(a);