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