[Black Raider]

чет меня вот это смущает:

Код:

for I := $00 to $FF do begin
    S := StringReplace( S,
      CT.Values[IntToHex(I, 2)],
      '<$'+IntToHex(I, 2)+'>',
      [rfReplaceAll]
    );

цикл несколько смущает, по логике вы пробегаете от 0 до CT.count-1