TSendReceiveProgressEvent = procedure (Sender: TObject; NumBytes: Integer; PercentDone: Word) of object