Думаю этого хватит для шифрования и де шифрования:
Код:
Var
S: String;
C: Char;
B: Byte;
L: Integer;
begin
S:= 'sdfsdgfh';// Строка.
L:= Length(S); // Длина строки.
C:= S[3]; // Выделим 1 символ из строки третий например.
B:= Ord(C); // Символ в формате $00-$FF;
C:= Chr(B); // Обратное преобразование байта в символ.
Form1.Caption:= IntToHex(B, 2)+'h.'; // Показать байт.
end;