procedure TForm5.list1Change(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin try
Button2.Enabled := Filectrl.DirectoryExists(cmb1.Path);
except end; End;