Pointer и String

[RIO]

Здравствуйте, на сайте:
http://popoff.donetsk.ua/text/work/d...ncryption.html

Нашел алгоритм шифрования.
Но вот столкнулся с проблемой, как зашифровать текст который находиться в TMemo и вывести его также в TMemo?

Вот набросок кода:

var
  C: TGOSTEncryption;
begin
  C.EncryptSimple(XZ, XZ, 100);
end;

[abb777]

IMHO просто
s := Memo.Text;
p := PChar(s);
......................
что-то делаем с указателем p и длиной length(s)
.......................

А чтобы вернуть в TMemo результат он по крайней мере д.б. читабельным. Не должен содержать коды < 32.