Сделать выход нажатием кнопки на директорию назад

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  path: string;
  i,d: integer;
begin
  for i:=0 to ShellListView1.Items.Count-1 do
  if ShellListView1.Items[i].Selected then
  begin
    path:= path+ShellListView1.Folders[i].PathName + #0; //получаем путь выделенного файла
    edit1.Text:=path; //выводим в edit
 
 { begin //не работает
    d:= pos('/', edit1.text);//ищем позицию
    path:=edit1.text;//читаем едит
    delete(path, 1, d);//удаляем из строки
    edit1.text := path;//записываем едит
  end;}
  end;
end;
end