[AND_REY]

Вот как то так:

Код:

Function CodeTxt(Txt: String): String;
Const
 Alfavit: Array [1..34] of Char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя ';
Var
 i, j: Integer;
begin
 For i:= 1 To Length(Txt) Do
  For j:= 1 To 34 Do
   begin
    if Alfavit[j] = Txt[i] Then Result:= Result + Format('%.2d', [j]);
   end;
end;

Function DeCodeTxt(Txt: String): String;
Const
 Alfavit: Array [1..34] of Char = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя ';
Var
 S: String;
 i, j: Integer;
begin
 i:= 1;
 While i <= Length(Txt) Do
  begin
   S:= Txt[i] + Txt[i+1];
   j:= StrToInt(S);
   Result:= Result + Alfavit[j];
   Inc(i, 2);
  end;
end;