Delphi - encriptar cadenas-cuanto antes por favor

hola a todos, necesito, saber como encriptar una cadena, una vez oi algo acerca de XOR, pero no se como funciona, le agradezco a cualquiera que pueda darme una ayuda....cuanto antes...

saludos a todos.
gracias anticipadas.

Echale un vistazo a esta direccion y encontraras todo tipo de componentes para encriptar y otras cosas.
http://delphi.icm.edu.pl/

De todas formas esta es una funcion que utiliza XOR pero no te la recomiento por su vulnerabilidad, aunque para saluir del paso vale.

function EncriptaByte(Cadena:String;Modo:Integer): String;
var
i: Integer;
St: String;
begin
St := Cadena;
for i := 1 to Length(St) do
St[i] := char(byte(St[i]) xor modo);); //por ejemplo, $AA,$AB
Result := St;
end;

Suerte