uses  
   Windows, SysUtils;  

procedure DeleteMe;  
var  
   BatchFile: TextFile;  
   BatchFileName: string;  
   ProcessInfo: TProcessInformation;  
   StartUpInfo: TStartupInfo;  
begin  
   { создаём бат-файл в директории приложения }
   BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat';  

   { открываем и записываем в файл }
   AssignFile(BatchFile, BatchFileName);  
   Rewrite(BatchFile);  

   Writeln(BatchFile, ':try');  
   Writeln(BatchFile, 'del "' + ParamStr(0) + '"');  
   Writeln(BatchFile,  
     'if exist "' + ParamStr(0) + '"' + ' goto try');  
   Writeln(BatchFile, 'del "' + BatchFileName + '"');  
   CloseFile(BatchFile);  

   FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);  
   StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;  
   StartUpInfo.wShowWindow := SW_HIDE;  

   if CreateProcess(nil, PChar(BatchFileName), nil, nil,  
      False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,  
      ProcessInfo) then  
   begin  
     CloseHandle(ProcessInfo.hThread);  
     CloseHandle(ProcessInfo.hProcess);  
   end;  

end;

program delete2;  

uses  
   SysUtils,  
   windows;  

var  
    BatchFile: TextFile;  
    BatchFileName : string;  
    TM : Cardinal;  
    TempMem : PChar;  

begin  
     BatchFileName:=ExtractFilePath(ParamStr(0))+ '$$336699.bat';  

    AssignFile(BatchFile, BatchFileName);  
    Rewrite(BatchFile);  

    Writeln(BatchFile,':try');  
    Writeln(BatchFile,'del "' + ParamStr(0) + '"');  
    Writeln(BatchFile,'if exist "' + ParamStr(0) + '" goto try');  
    Writeln(BatchFile,'del "' + BatchFileName + '"');  
    CloseFile(BatchFile);  

    TM:=70;  
    GetMem (TempMem,TM);  
    GetShortPathName (pchar(BatchFileName), TempMem, TM);  
    BatchFileName:=TempMem;  
    FreeMem(TempMem);  

    winexec(Pchar(BatchFileName),sw_hide);  

    halt;  

end.

procedure DeleteSelf;  
var  
   module: HModule;  
   buf: array[0..MAX_PATH - 1] of char;  
   p: ULong;  
   hKrnl32: HModule;  
   pExitProcess,  
   pDeleteFile,  
   pFreeLibrary: pointer;  
begin  
   module := GetModuleHandle(nil);  
   GetModuleFileName(module, buf, SizeOf(buf));  
   CloseHandle(THandle(4));  
   p := ULONG(module) + 1;  
   hKrnl32 := GetModuleHandle('kernel32');  
   pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess');  
   pDeleteFile := GetProcAddress(hKrnl32, 'DeleteFileA');  
   pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary');  
   asm  
     lea eax, buf  
     push 0  
     push 0  
     push eax  
     push pExitProcess  
     push p  
     push pDeleteFile  
     push pFreeLibrary  
     ret  
   end;  
end;