UnitCHM
Declaration
TCHMparseMessageEvent = procedure(Sender : TObject; MessageData : string; TransportIndex : Integer) of Object;