procedure THIZipper._work_doCompress;
  begin
    if strZIP = '' then Exit;
    intMethod := _prop_Method;
    if _prop_ResetAttr = 0 then fResetAttr := True
    else fResetAttr := False;
    pSelf := Self;       // ---> почти нигде не используется
    Check( zCompressFiles(
                     nil,
                     PChar( _prop_Password ),
                     intMethod,
                     fResetAttr,
                     _prop_SpanSize,
                     _prop_Comment,
                     @THIZipper.onProgress  // и такое для каждого калбэка  :shock:
                     ) );
  end;

// это тоже что то не понятное  :roll:
procedure THIZipper.onProgress; far;
  begin
    zGetRunTimeInfo( pSelf.intFiles, pSelf.intBytes );
    if pSelf._prop_Progress = 0 then
      _hi_OnEvent( pSelf._event_onProgress,  pSelf._intFiles )
    else
      _hi_OnEvent( pSelf._event_onProgress,  pSelf._intBytes );
  end;