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.