Помогите разобраться с ZipTV

У меня такая проблема, я не могу разобраться с архивацией. Я пишу вот такой код :

var
i : Integer;
begin
Jar1.ArchiveFile := '123.jar';
Jar1.FileSpec.Clear;
Jar1.FileSpec.Add('C:\1.txt');
i := Jar1.Compress;
ShowMessage(intToStr(i));
end;

Но происходит зависание программы на стадии компрессии, в чем проблема ? Подскажите пожалуйста как правильно пользоваться архивацией в частности архивацией Jar.