Код:
//Определение пути каталога
sPath:= '';
if TreeView1.Selected=nil then
Memo1.Lines.Add('Ошика! Вы не выбрали каталог!')
else begin
while TreeView1.Selected <> nil do
begin
sPath:= TreeView1.Selected.Text +'\'+sPath;
TreeView1.Selected:= TreeView1.Selected.Parent;
end;
Delete(sPath, length(sPath), 1);
вот в этом фрагменте уже сканится выбрана директория или нет, т.е если она selected, то мы "верстаем" в цикле путь к ней, а выбраная директория уже является директорией по умолчанию, вот как я думаю