[VB.NET]
Event OnCompressionStart As TSBTarCompressionStartEvent
Delegate Sub TSBTarCompressionStartEvent(ByVal Sender As Object, ByVal Entry As TElTarArchiveDirectoryEntry, ByRef Compress As Boolean)
[Pascal]
property OnCompressionStart : TSBTarCompressionStartEvent;
TSBTarCompressionStartEvent = procedure(Sender : TObject; Entry : TElTarArchiveDirectoryEntry; var Compress : boolean) of object;