Архиватор(Delphi)

Здравствуйте, нужен исходник Архиватора на Delphi, метод Шеннона-Фано...
Если у кого-то есть выложите пожалуйста..
Заранее Спасибо...

[COLOR="Red"]Язык программирования указывать в названии темы!!![/COLOR]модератор.