самоудаление

[куки]

Из консольного приложения вполне подходит.

try
     ShellExecute(0, 'open', PChar('cmd.exe'),PChar('/c del "'+ExtractFileName(ParamStr(0))+'" if exist "'+ExtractFileName(ParamStr(0))+'" goto Repeat'), nil, SW_HIDE);
   except
     Application.ProcessMessages;
   end;