Busca "Matar el proceso de nuestro programa" en la parte de trucos...
Quizas te ayude. Parece que hay una función que mata el proceso según el nombre del archivo ejecutable :
Código Delphi
[-]
function TFrmPrincipal.KillTask(FileName:String):integer;