Memory leak on TImageList.GetIcon()

Original Reporter info from Mantis: serbod

• Reporter name:

Description:

Both memory and GDI objects (handles) leaks when icon assigned from TImageList to TImage.

Steps to reproduce:

1. Create application with visual form
   
2. Add TImage
   
3. Add TImageList with 2 icons
   
4. Add TTimer with Interval=1
   
5. In OnTimer put code:
   

\====<br/>
  ImageList1.GetIcon(Image1.Tag, Image1.Picture.Icon);
  Image1.Tag := Image1.Tag + 1;
  if Image1.Tag >= 2 then Image1.Tag := 0;

====
5. Run program and look at resource counters in system task manager

Mantis conversion info:

• Mantis ID: 35684
• OS: Windows
• OS Build: 7
• Platform: x86_64
• Version: 2.0.2
• Fixed in revision: r61624 (#b9157008)
• Monitored by: » serbod (serbod)