Compact encrypted text

I need to encrypt long text strings, and after I do that, I compact the result to reduce the size and write the encrypted and compressed information in the database.

To do this I use TZIpFile which involves an additional code and thus I would like that you create a new property in component. When is active do the compression / decompression automatically after/before doing the encryption / decryption.