Удаление программы из самой себя

uses
  SysUtils, ShellAPI;
...
var
  FileName: String;
  f: TextFile;
begin
  FileName := ChangeFileExt(ParamStr(0), '.bat');
  AssignFile(f, FileName);
  Rewrite(f);
  WriteLn(f, 'attrib -a -r -s -h "', ExtractFileName(ParamStr(0)), '"'); // снятие атрибутов с файла
  WriteLn(f, ':1'); // создаём метку
  WriteLn(f, 'del "', ExtractFileName(ParamStr(0)), '"'); // удаляем программу
  WriteLn(f, 'If exist "' + ExtractFileName(ParamStr(0)), '" goto 1'); // если программа не удалена, идём на метку
  WriteLn(f, 'del "', ExtractFileName(FileName), '"'); // когда программа удалена, удаляем бат-файл
  WriteLn(f, 'exit'); // выход (хотя он не нужен - он уже не выполнится)
  CloseFile(f);
  ShellExecute(GetDesktopWindow, 'Open', PChar(FileName), nil, nil, sw_Hide);
end;

function StrToOem(const AnsiStr: string): string;
begin
  SetLength(Result, Length(AnsiStr));
  if Length(Result) > 0 then
    CharToOemBuff(PChar(AnsiStr), PChar(Result), Length(Result));
end;