[lmikle]

stervochka, во первых, а не желает ли уважаемая создать отдельную тему. Это раз.
Два. Где ваш код? Или вы ошиблись разделом?
Три, по существу. Надо идти по строке циклом и заменять соответсвующие символы по таблице перекодировки.

Код:

const
  CodeTable : Array [65..66] Of ('T','M');
...
function RecodeChar(C : Char) : Char;
begin
  If (Chr(C) >= Low(CodeTable)) Or ((Chr(C) <= High(CodeTable)))
    Then Result := CodeTable[Chr(C)]
    Else Result := C;
end;
...
for I := 1 To Length(S) Do
  S[i] := RecodeChar(S[i]);