Работа с Zip архивами.

Класс TZipFile решает основные задачи.

// Распаковка
ZipFile := TZipFile.Create;
Try
  ZipFile.Open('Имя архива',zmRead);
  ZipFile.Extract('Файл в ахиве', 'Куда распаковать');
  ZipFile.Close;
Finally             
  ZipFile.Free;
End;

// Упаковка
ZipFile := TZipFile.Create;
Try
  ZipFile.Open('Имя архива', zmWrite);
  ZipFile.Add('Файл на диске', 'Имя в архиве', zcDeflate);
  ZipFile.Close;
Finally             
  ZipFile.Free;
End;