兩字符串比較﹐獲取不同部分,该怎么解决

兩字符串比較﹐獲取不同部分
兩個字符串相比較﹐怎樣獲得其中不相同的部分字符串
如﹕'43353030373333303030344231' 與'43353030373333303030354141'
要怎樣分得到'44231'和'54141'﹐以便后續進行大小的比較

請大家指點﹐急﹐在線等﹗

謝謝

------解决方案--------------------
var
 i,j,th1,th2: Integer;
 tr1,tr2 :string;
 newstr :string;
begin
th1:=Length('43353030373333303030344231');
th2:=Length('43353030373333303030354141');
for i :=1 to th1 do
begin
tr1:=copy('43353030373333303030344231',i,1);
tr2:=copy('43353030373333303030354141',i,1);
if tr1=tr2 then
newstr:=newstr+'A'//相同的用A表示
else
newstr:=newstr+ tr1;／／把不同的直接
end;

end;
结果　：newstr=AAAAAAA........AA4A23A