TIdBeforeCommandHandlerEvent = procedure (ASender: TIdTCPServer; const AData: string; AThread: TIdPeerThread) of object;