for vI:= 20 to 200 do
  begin
      ...
      if vI = vA then break; // Si la condition est vérifiée, la boucle se termine
      ...
  end;
  
  // Variante DownTo
  for vI:= 200 downto 20 do
  begin
      ...
  end;