[C#]
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;