Comparar dos memos

[creus]

Espero que asi este mejor.

Código Delphi [-]
for index1:=0 to iTotalCaracterMemo1 do
begin
for index2:=0 to iTotalCaracterMemo2 do
begin
if (Memo2.Text[index2]=Memo1.Text[index1]then
begin
cont:=cont+1;
end else
begin
   conterror:=conterror+1;
end;
end;

No logro que me contabilice ni los caracteres iguales, ni los diferentes.
Son 40 mensajes pero aun voy perdido, como puedes observar.