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