Загрузить картинку в TSpeedButton из TImageList

[Аватар]

Метод Assign по идее должен быть у TPNGObject. Можно попробовать так

png.Assign(PngImageList1.PngImages.Items[PngSpeedButton1.Tag].PngImage);

Если прокатит, то должно без проблем освобождать

И вот так не работает напрямую без промежуточного png?

PngSpeedButton1.PngImage.Assign(PngImageList1.PngImages.Items[PngSpeedButton1.Tag].PngImage);

[Shouldercannon]

var
  png: TPNGObject;
begin
  png := TPNGObject.Create;
  png.Assign(PngImageList1.PngImages.Items[PngSpeedButton1.Tag].PngImage);
  PngSpeedButton1.PngImage.Assign(png);
  FreeAndNil(png);
end;

Освобождает
И так работает

begin
  PngSpeedButton1.PngImage.Assign(PngImageList1.PngImages.Items[PngSpeedButton1.Tag].PngImage);
end;