by 'lagprogramming'. rtl/objpas/classes/compon.inc has `Destructor TComponent.Destroy`; In order to exit a loop, the original code sets a zero value to variable "I". A patch has been attached that changes the line "I := 0;" with "Break;", increasing code readability. [d.diff](/uploads/43280ab20b1b00a18fa8ac2dffa0df18/d.diff)