Source position: fphttpclient.pp line 43
type TDataEvent = procedure(
Sender: TObject;
const ContentLength: Int64;
const CurrentPos: Int64
) of object;