Не удаётся корректно выгрузить
динамически созданный компонент -
после выгрузки 'съедается' немного памяти. *Код такой:

Procedure TMainFm.CreateImage;
*Begin
* *Img:=TImage.Create(self);
* *Img.Parent:=PanelA;
* *Img.OnClick :=ImageClick;
* *Img.OnMouseMove:=ImageMMove;
* *Img.Name:='nm';
*End;

Procedure TMainFm.FreeImage;
*Begin ...
* *self.RemoveComponent(Image[i]);
* *Img.DestroyComponents;
*End;

Подскажите, где баг.


[s]Исправлено: ilusha sh, 16:49 11-08-2003[/s]

Вроде как DestroyComponents убивает все дочерние компоненты, но не самого родителя... а в помощи сказано, что этот метод вызывается автоматом когда дестроится родитель. Так что IMHO лучше воспользоваться методом Free вместо двух строк в процедурке FreeImage.