Assuming ID 1 is your listbox and 4 is your Delete button:

if $did == 4 { did -d $dname 1 $$did(1,1).sel }