TIdRSHCommandEvent = procedure (AThread: TIdPeerThread; AStdError : TIdTCPClient; AClientUserName, AHostUserName, ACommand : String) of object;