Source position: custmicrohttpapp.pp line 102
type TAcceptHandler = procedure(
Sender: TObject;
Addr: PSockAddr;
addrLen: socklen_t;
var Allow: Boolean
) of object;