Delete in table

jak zrobic aby usunac z tablicy array[0..10000] of string ort! kawałki stringów gdzie jest powtórzona cyfra,
np:
1322454->132454
654474669->6547469

Pewnie nie o to chodzi ale ;p:

var T:array [0..1000] of String;
      i:integer;
begin    
  for i:=Low(T) to High(T) do StringReplace(T[i],'654474669','6547469',Nie_Wiem_Jaki_4_Paramert);
end;