[lmikle]

Ну что мешает сделать по доному из вариантов:
1. Разбить строку на массив по 2 символа в эдементе и переворачивать этот массив.
2. Сделать цикл с шагом 2 и обрабатывать сразу 2 символа.

Второй вариант как-то так:

Код:

var
  S, R : String;
  I : Integer;
begin
  S := '7156664E';
  If Length(S) mod 2 <> 0 Then Raise Exception.Create('Длинна не кратна 2');
  R := '';
  I := 1;
  While I < Length(S) Do
    Begin
       R := S[i] + S[I+1] + R;
       Inc(I,2);
    End;
  ShowMessage(R);
end;