Progress Event
Reports the data encryption/decryption progress.
Syntax
type TProgressEvent = procedure ( Sender: TObject; Total: Int64; Current: Int64; var Cancel: Boolean ) of Object;
property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
Remarks
This event fires periodically during a file encrypt/decrypt operation to report its progress.
Use the Cancel parameter to terminate the encryption/decryption if needed.