Delphi File Treeview

We need a Delphi application that holds a filepath as a constant (e.g. c:\myfolder) and shows a list of subfolders in alphabetical order. When the subfolder branch is expanded it should show a list of files (e.g. *.txt;*.asp - list should also be a constant) in alphabetical order. No subfolders should be displayed. When clicking on one of the files it should load the data into a memo field. When a folder is selected, there should be a button that prompts the user for a new folder name, and then it should copy the selected folder (including subfolders) to the selected name, and the treeview refreshed accordingly. User cannot navigate up or down a level (so it should be relatively straight forward!) Folders should have a folder icon, files should have a text file icon. ## Deliverables 1) Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. 2) Complete ownership and distribution copyrights to all work purchased. ## Platform Delphi 7