간단한 폴더 압축해서 데이터 백업할 일이 있어서 압축 라이브러리 이것 저것 찾다가
Builder에서 자체 지원하는 TZipFile 있다는 사실을 이제야 알았네요.
간단한 압축에는 편하게 쓸 수 있을 것 같습니다.
(XE2 이상)

#include 

    TZipFile *z = new TZipFile;
    z->ZipDirectoryContents("C:\\Temp\\샘플2.zip", "C:\\Temp\\샘플2");
    delete z;

RAD Studio Seattle 버전부터는 Progress Event 인자가 추가되었네요..

static void __fastcall ZipDirectoryContents(const System::UnicodeString ZipFileName, 
                                       const System::UnicodeString Path, 
                                       TZipCompression Compression = (TZipCompression)(0x8), 
                                       TZipProgressEvent ZipProgress = 0x0);