[lazarus] FCL Bug found

[Sebastian Günther]

Shane Miller wrote:
> 
> In TComponents.SetDesigning  compon.inc
> 
> For Runner := 0 to FCOmponents.Count
> 
> should be
> 
> For Runner := 0 to FCOmponents.Count-1

Fix has been applied to both CVS branches


- Sebastian