[fpc-pascal] Encrypt routine

[Luiz Américo]

I'm looking for a simple file encryption routine (or an external library).
Something like:
   Procedure EncryptFile(FileName,Key:String);
   Procedure DecryptFile(FileName,Key:String);

I'd be glad with someone help

Luiz