Otra opción, y por cierto más sencilla es usar un componente Timer. En el evento OnTimer puedes poner tu código que se vería algo así:
Código Delphi
[-]
If Timer1.Interval = 1000 then
begin
if Not procesoenEjecucion then
begin
WinExec('calc',SW_SHOWNORMAL);
end;
end;
Recuerda que el
Interval esta expresado en milisegundos