TScSFTPClient no progress on sending a file

[ndi.infotip]

I use TScSFTPClient (with Delphi XE6) for sending of large files to a SFTP-Server.
I will show the count of bytes, which are sending.
eg. Sending/FileSize
32000/10100100
64000/10100100
96000/10100100
....
The component TScSFTPClient has no Action for count of the sending bytes.
How can get the sending bytes?

I can show the received bytes from a SFTP_Server by the Action OnData.
This Action does not work on sending.

[Dimon]

To process sending data you can use the OnSuccess event. TScSFTPClient sends data by pieces of TScSFTPClient.WriteBlockSize size on uploading file, therefore the OnSuccess event is raised few times.

[ndi.infotip]

It works.
Thanks