Reference TTransmitEvent

TTransmitEvent can be reused to indicate progress of socket reading or writing. Size is the total expected number of bytes to be transmitted, and Transmitted is the actual number of bytes transmitted so far

TTransmitEvent = procedure(Sender: TObject; const Size, Transmitted: LargeWord) of object;