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