Improvement of Destructor TComponent.Destroy
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.