Edwin Yip wrote: > thank you very much Roger. > Implementing that in the event will cause the program logic to be > unreadable... > > Best Regards, > Edwin Yip > > Mind Mapping is as Effortless as Typing > http://www.InnovationGear.com > > I overlooked one other access possibility If you know the filename use the Find method that will return a ZipDirEntry pointer. Use idx := -1 for first search, idx will contain the index of the filename on return. function TCustomZipMaster.Find(const fspec: String; var idx: Integer): pZipDirEntry; The ZipDirEntry points to a packed record that has a member FileComment: String; -- Roger Aelbrecht ----------- To unsubscribe from this list, send an empty e-mail message to: delphizip-request@xxxxxxxxxxxxx and put the word unsubscribe in the subject.