[AND_REY]

Думаю этого хватит для шифрования и де шифрования:

Код:

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;