Comparar dos memos

[creus]

Estoy intentando hacer una comparacion de dos memos para saber que caracteres de los dos son diferentes y asi contabilizar los errores que hay.

ej: Memo1 Santiago
Memo2 Santiugo

error= 1


Mi código,

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;
end;
end;


Gracias a todos