[Ziele]

Przykładu takiego szyfrowania nie widziałem ale wydaje mi się ze powinieneś pobrać kod ascii każdej litery a potem to zamienić na hex

Spróbuj tego szyfrowania metodą xorowania. Kodowanie i dekodowanie wymaga podania tego samego klucza

procedure TForm1.BitBtn1Click(Sender: TObject);

var
 Dlugosc, i: Integer;
 Znak: Char;
 zmienione: String;
  klucz:integer;

begin
klucz:=strtoint(edit3.Text);
zmienione:= memo1.text;
Dlugosc :=Length(memo1.text);
for i :=1 to Dlugosc do
 begin
  znak :=zmienione[i];
  znak :=Chr(Ord(znak) xor klucz);
  zmienione[i] :=Znak;
 end;
memo2.text:=zmienione;
end;