Para cifrar te puedo ofrecer esto:
http://delphi.jmrds.com/?q=node/31
Ademas como estamos en el foro de Freepascal te interesara saber que el codigo anterior tambien compila en freepascal, incluso bajo linux, como explico aqui:
http://delphi.jmrds.com/?q=node/40