자답 입니다..

에러가 발생한 부분에 & 를 추가하니 잘 되던데요..

    TSHFileOpStruct F;


      F.hwnd = Handle;
      F.wFunc = FO_DELETE;
      F.pFrom = file1.c_str();
      F.fFlags = FOF_ALLOWUNDO;


    if(SHFileOperation(&F)==0){
        FileListBox1->Items->Delete(FileListBox1->ItemIndex);
    }