TFPHTTPClientPoolProgress

type TFPHTTPClientPoolProgress = procedure(

  Sender: TFPHTTPClientAsyncPoolRequestThread;

  const aDirection: TFPHTTPClientPoolProgressDirection;

  const aPosition: Int64;

  const aContentLength: Int64;

  var ioStop: Boolean

) of object;