Загрузить PNG в TIcon

[TwiX]

Пробовал сохранить TPNGImage в TMemryStream, а потом выгрузить в TIcon - не работает.

[x128]

В TIcon и не получится, можно только битмап, если нужно именно PNG, то только ручками.

procedure SavePNGIcon(fname: string; const png: TMemoryStream);
type
  TIconRec = packed record
    Width: byte;
    Height: byte;
    Colors: byte;
    Reserved: byte;
    Planes: word;
    BPP: word;
    DIBSize: dword;
    DIBOffset: dword;
  end;
var
  ico: file of byte;
  hdr: TCursorOrIcon;
  irec: TIconRec;
begin
  hdr.Reserved:=0;
  hdr.wType:=1;
  hdr.Count:=1;

  AssignFile(ico, fname);
  Rewrite(ico);
  BlockWrite(ico, hdr, SizeOf(hdr));

  irec.DIBOffset:=SizeOf(hdr)+(hdr.Count*SizeOf(TIconRec));
  irec.DIBSize:=png.Size;
  irec.Reserved:=0;
  irec.Width:=0;
  irec.Height:=0;
  irec.Planes:=0;
  irec.BPP:=32;

  BlockWrite(ico, irec, SizeOf(TIconRec));
  BlockWrite(ico, png.Memory^, irec.DIBSize);
  CloseFile(ico);
end;