Delphi - Componente o función para encriptar un string

Hola a todos, estoy necesitando un componente o función para encriptar un string, alguién me lo podría enviar?. La idea de esto es tener una tabla de los usuarios con su contraseña y cada vez que el ejecute la aplicación introduzca el password en un Edit, encriptar el string y comparar con lo que contiene la tabla de usuarios, que por supuesto tiene almacenado el password encriptado.

Desde ya, muchas gracias.

Depende de la calidad de encriptacion que quieras hay para todos los gustos desde simples rutinas que utilizan XOR hasta autenticos algoritmos libres y registrados que dependiendo del pais en que vivas ¿no puedes utilizalos? como Blowfish, Idea, Cast 128, etc Echale un vestazo a esta página y busca componentes de encriptacion.http://delphi.icm.edu.pl/.
Si no encuentras nada dimelo y te mando alguna rutina sencilla

Encontré uno que me sirve, muchas gracias