Schnelle Kompressionsroutine gesucht

[turboPASCAL]

Hi ich schon wieder,

Ich bin auf der suche nach einer recht schnellen De.- und Kompressionsroutine für Delphi (Pascal language).
Ich habe relatiev viele Single-Daten die ich gern ein wenig schrumpfen möchte mit einer leichten verschlüsselung.
Zur Zeit nutze ich das LZW-Verfahren welches aber bei vielen Dateien zu lange beim laden braucht. Zu dem macht
sie mir die Exec um ~ 30 KB grösser. Kompressionsrate sollte um die 20% liegen.

Kennt wer so was ?