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