Algoritimo para Compactação de Strings

Olá comunidade,

Preciso com um pouco de urgência uma Unit com um algoritmo para compactação/descompactação de strings. Exemplo: Uma string de 2000 bytes precisa ser compactada em 50¬ ou mais.

Tenho em algumas tabelas uma para armazenar textos longos que ocupariam muito espaço, então com a compactação da string, resolveria meu problema.

Se alguém puder me ajudar, desde já agradeço.