Ich glaube unterm Strich kommt du nicht um sowas drum rum:
Delphi-Quellcode:
for i:= 1 to Min(Length(leftStr), Length(rightStr)) do
begin
if (leftStr[i] <> rightStr[i]) then
charColor := clRed
end;
// Danach beim rightStr alle Zeichen hinter Length(leftStr) rot färben
Sorry, aber so einfach ist es nicht... Aber die Links vom "schöne Günther" sind schon genau richtig...