void __fastcall TForm18::Button3Click(TObject *Sender)
{
    String s = DirectoryListBox1->GetItemPath(DirectoryListBox1->ItemIndex);
    String s1 = DirectoryListBox1->GetItemPath(DirectoryListBox1->ItemIndex - 1) + "\\" + Edit1->Text;

    s += '\0';
    s1 += '\0';

    SHFILEOPSTRUCT op;
    ZeroMemory(&op, sizeof(op));
    op.hwnd  = Handle;
    op.wFunc = FO_RENAME;
    op.pFrom = s.c_str();
    op.pTo = s1.c_str();
    op.fFlags = 0;
    SHFileOperation(&op);

    DirectoryListBox1->Directory = DirectoryListBox1->GetItemPath(DirectoryListBox1->ItemIndex - 1);
    DirectoryListBox1->Directory = DirectoryListBox1->GetItemPath(DirectoryListBox1->ItemIndex + 1);
}