UnitIcXMLParser
Declaration
TFileNotFoundEvent = procedure(Sender : TObject; FileName : string) of Object;