Autosupprimer un exe

Voilà, j'aimerais supprimer mon exe lors de son exécution genre 5 secondes après qu'il ait été ouvert.
J'ai essayé avec ca :
procedure TForm1.FormDestroy(Sender: TObject);
var
filename : string;
begin
filename:=ExtractFilePath(Application.ExeName)+'Prog.exe';
DeleteFile(FileName);
end;

là c'était quand le prog est quitté...
Mais le problème c'est que il n'arrive pas à se supprimer car il est encore en exécution au moment où il doit se supprimer.

Si quelqu'un a une solution, (on m'a parlé de threads mais je connais pas vraiment)
Ne dors pas trop la nuit pour pouvoir faire une sieste le jour !

Bon ben g choisi une technique un peu bricolage :
J'ai créé un deuxième exe que j'extrais depuis une ressource qui lorsque le prog 1 est fermé est extrait et s'exécute pour effacer le prog 1. voilà (et il se ferme tt seul biensure...)
voilà lol.
C'estm oi le roi du bricolage, tant pis...

Ne dors pas trop la nuit pour pouvoir faire une sieste le jour !