Delphi - Encriptación

Hola a todos, como puedo o de donde puedo encontrar información para encriptar un string???.
Espero me puedan ayudar.
Saludos a todos

Si lo que buscas es criptografía fuerte, en el Boletín Pascal #17 se publicó una unidad para el método TwoFish:

http://www.latiumsoftware.com/es/pascal/0017.php

Si quieres algo más simple:

for i := 1 to Length(s) do
s[i] := Chr(Ord(s[i]) Xor $96);

Eso encripta (y también desencripta) la cadena en la variable "s" invirtiendo los bits 1, 2, 4 y 7 de cada caracter ($96 = 10010110 en binario).

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php