이렇게 해보십시요. 1.0이시라면....

var
   InstanceID : THandle;

begin
   InstanceID := WinExec(파일이름,1);
   repeat
      Application.ProcessMessages;
   until Application.Terminated or (GetModuleUsage(InstanceID) = 0);
end;

그럼...