[Thundefined]

При определённых событиях exeшник должен самоуничтожаться, реализовал с помощью bat файлов, вот код

Код:

procedure DestroyExe;
var
F : TextFile;
Temp, AppName : string;
begin
  Temp:= 'delete.bat';
  AppName:= ExtractFileName(ParamSTR(0));
  AssignFile(F, Temp);
  Rewrite(F);
  Writeln(F, 'del ' + AppName);
  Writeln(F, 'del ' + Temp);
  CloseFile(F);
  ShellExecute(Application.Handle,'open','Delete.bat',nil,nil,SW_ShowNormal);
  Halt;
end;

Если делать на "пустой" программе то всё отлично делается, когда делаю это на большом проекте после нажатия кнопки "самоуничтожение" вылазит вот это:
Подскажите с чем может быть связано, пожалуйста)