This is my code:
//////////////////
bucle:
appath:=extractfilepath(paramstr(0));
appath:=appath+'program.exe';
CreateProcess(@appath, Nil, Nil, Nil, False, CREATE_NEW_CONSOLE, Nil, Nil, StartupInfo,InfoDelProcesso);
goto bucle;
/////////////////
Also I've "StopOnException:=True;" on Create