TBeforeClientConnectEvent = procedure (ASender: TComponent; AThread: TIdPeerThread; AClient: TIdTCPClient) of object;