:1
Erase "C:\Erase_self_EXE\Project1.exe" // Удалить Project1.exe
If exist "C:\Erase_self_EXE\Project1.exe" Goto 1 // Проверять удаление Project1.exe и повторять пока не удалится 
Erase "C:\Erase_self_EXE\Project1.bat" // удалить bat-файл

 WinExec(PChar(ChangeFileExt(Paramstr(0),'.bat')),SW_HIDE);