Pues si quieres seguir con tu metodología, tendrías que hacer una comparación por cada posición que tengas, de forma tal que obtendrías un producto cartesiano...
comparar posicion 1 con posicion 1
comparar posicion 1 con posicion 2
comparar posicion 1 con posicion 3
comparar posicion 1 con posicion 4
comparar posicion 2 con posicion 1
....
Lo cual no aconsejo, ya que para esto existen las estructuras como FOR o While...
Adicionalmente hay que tener en cuenta que las cadenas de texto en Pascal permiten acceder a cada uno de sus carcateres de forma individual, como si fuera un vector, asi:
Código Delphi
[-]Var
CadenaDeTexto: String;
....
CadenaDeTexto:='Hola';
ShowMessage(CadenaDeTexto[1]) ;
Según lo anterior, tu solución seria algo como:
Código Delphi
[-] For i:= 1 to 4 do
for j:= 1 to 4 do
if Edit1.text○[i]=Edit2.text[j] then
contadorderepetidos:= contadorderepetidos +1;
bye.