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