Source position: fphttpserver.pp line 35
type TGetSocketHandlerEvent = procedure(
Sender: TObject;
const UseSSL: Boolean;
out AHandler: TSocketHandler
) of object;