Como comprimo un archivo!?

[juliopag1]

Necesito comprimir un archivo, pero quiero hacer el codigo claro en Delphi, para tratar de hacerlo mas pequeño posible. Me podrian decir de que forma lo podria hacer. A y que no sea utilizando WinZip ni WinRAR, se podria robar las extenciones para descomprimirlo, pero no me gustaria usar el programa, porque estaria en lo mismo. Quiero comprimirlo lo mas que se pueda.

Recomendable
- O un codigo, componentes, o Algoritmo

Thank's