Изображения не освобождаются из памяти после удаления

[factually]

public
simage: array of TsImage;

procedure TForm1.sBitBtn2Click(Sender: TObject);
var i:integer;
image:TPNGObject;
M: TMemoryStream;
begin
SetLength(simage,imglinks.count);
for i:=0 to imglinks.count-1 do begin
M:=TMemoryStream.Create;    
HTTP.Get(imglinks[i],M);   
 M.Position:=0;
simage[i]:=TsImage.Create(form1);
simage[i].parent:=panel;
Image := TPNGObject.Create;
Image.LoadFromStream(m);
Simage[i].Picture.Graphic := Image;
simage[i].left:=simage[i].left+50;
end;
        FreeAndNil(m);
        FreeAndNil(image);
        FreeAndNil(http);
end;

Пробовал по-разному освобождать память от самого массива и всех элементов в нем, но ничего не выходит. При выполнении sBitBtn2Click память забивается от новых картинок, но не отчищается от старых, хотя сами картинки удаляются.
Пр.:

procedure TForm1.sBitBtn3Click(Sender: TObject);
var i:integer;
begin
  for I:=0 to imglinks.count-1 do begin
simage[i]:=nil;
  end;
end;

[Аватар]

        FreeAndNil(m);
        FreeAndNil(image);

это нужно в цикле делать, для каждого, а не один раз для последнего. А это что:

simage[i]:=nil;

Тоже Free, присвоение nil не освободит

[factually]

Сообщение от Аватар

        FreeAndNil(m);
        FreeAndNil(image);

это нужно в цикле делать, для каждого, а не один раз для последнего. А это что:

simage[i]:=nil;

TsImage объект? Тогда тоже Free, Присвоение nil не освободит

Free тоже пробовал, результата нет, память не освобождается.

[evg_m]

Впрочем об этом уже написали

[kropotkina-alice]

Сообщение от factually

Free тоже пробовал, результата нет, память не освобождается.

Что у вас происходит при каждом выполнении sBitBtn2Click?
У вас каждый раз создается новый(!) массив Simage[i]...
А где уничтожение старого массива???
Вы сами плодите массивы картинок и удивляетесь, что память забивается...