TGetPostRequestExEvent

type TGetPostRequestExEvent = procedure(

  Sender: TObject;

  IsGet: Boolean;

  const URL: ThtString;

  const Query: ThtString;

  const EncType: ThtString;

  const Referer: ThtString;

  Reload: Boolean;

  var NewURL: ThtString;

  var DocType: THtmlFileType;

  var Stream: TStream

) of object;