Replace force-exit workarounds with break now that Break is supported

rtl/src/main/pascal/Generics.Collections.pas

@@ -141,10 +141,9 @@ begin
     if Ptr^ = Key then
     begin
       Result := I;
-      I      := Self.FCount  { force loop exit }
-    end
-    else
-      I := I + 1
+      break
+    end;
+    I := I + 1
   end
 end;
 

tests/phase3_milestone.pas

@@ -118,10 +118,9 @@ begin
     if Ptr^ = Key then
     begin
       Result := I;
-      I      := Self.FCount
-    end
-    else
-      I := I + 1
+      break
+    end;
+    I := I + 1
   end
 end;