... old Delphi controls programmatically. That was my original intention when I couldn't find a match in Lazarus. I left it undone then because it's not a 5-minute task, and "have a go" is just as likely to mean failure as success. Hi Graeme, I should have looked a bit harder before giving up 18 months ago. I googled some ideas for recursively filling a TTreeView control with folders. I don't like using recursive code if I can help it, but sometimes it is the only way: 2_041301_070000000.png 2_041301_070000001.png Which looks promising. It needs tidying up a bit and won't start from the drive root for some reason. That probably needs another listbox to show the top-level folders. And a combobox to select the drive. Do you want to look at this? Or shall I do a bit more with it? procedure get_folders(folder_str:string; tree_node:TTreeNode); var search_record:TSearchRec; new_node:TTreeNode; begin if folder_str[Length(folder_str)]<> '\' then folder_str:= ...