void __fastcall TForm18::Button2Click(TObject *Sender)
{
    String s = DirectoryListBox1->GetItemPath(DirectoryListBox1->ItemIndex);
    Edit1->Text = s;
    RemoveDir(s);
    DirectoryListBox1->Update();
}