TSendTrnEvent = procedure (Thread: TIdPeerThread; var Header: TIdHeader; var CustomMsg: String) of object;