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