[C#/Java]
event TSBBzip2ProgressEvent OnProgress;
delegate void TSBBzip2ProgressEvent(object Sender, long Processed, long Total, ref bool Cancel);
[VB.NET]
Event OnProgress As TSBBzip2ProgressEvent
Delegate Sub TSBBzip2ProgressEvent(ByVal Sender As Object, ByVal Processed As Long, ByVal Total As Long, ByRef Cancel As Boolean)
[Pascal]
property OnProgress : TSBBzip2ProgressEvent;
TSBBzip2ProgressEvent = procedure(Sender: TObject; Processed, Total: Int64; var Cancel : boolean) of object;