var
  vrActiveDuts : vector;
  vrIndex : real;

step
  vrActiveDuts := ActiveDuts;
  for vrIndex := 1 to Len(vrActiveDuts) do begin
    if GetTestResult(vrActiveDuts[vrIndex]) = 3 then begin
      if GlobalVar.Get('AbortBySimulation', 0) = 0 then begin
        GlobalVar.Set('Loop', 0);
      end;
    end;
  end;
end.
