[Lazarus] TTrayIcon.Animate - Minor Repair

[Perpetual Newbie II]

No indication of who to thank for this component in the header ... thanks 
all the same.

I ran into a problem swapping image lists [Icons property] where an Index 
error would be thrown. One imagelist has 150 images, the other has 40. 
Swapping from the big one when the index [FCurAnimationStep] was over 40 
to the small one is where the error would be thrown. By intentionally 
slowing down the animation I could recreate the error at will.

Adding:
FCurAnimationStep := 0;
to the end of
procedure TCustomTrayIcon.SetIcons(const AValue: TCustomImageList);
in the file;
customtrayicon.inc
fixes the problem nicely but I don't know if it breaks anything else.

Lazarus 0.9.31 on Ubuntu [Wubi] 10.04.1

Thanks all.

-- 
Dave