Png + imagelist = fehler

[creehawk]

Moin.

Ich möchte in ein Listview dynamisch Bilder setzen. Klappt prima,solange ich Icons oder Bitmaps nehme.
Jetzt wäre Transparenz nett. Laut Hilfe kann TImageList auch das Format PNG. (cs32bit, dsTransparent usw.)

Also habe ich das hier produziert:

Delphi-Quellcode:

procedure TMain.TestClick(Sender: TObject);
Var
I:Integer;
ListItem             : TListItem;
ItemListStandard     : TStringList;
ItemListStandardGUID : TStringList;
Image                 : TPNGImage;
begin
ItemListStandard     := TStringList.Create;
ItemListStandardGUID := TStringList.Create;
Image                 := TPngImage.Create;
ItemUnits := ItemRoot.SelectNodes('Item');
For I := 0 to ItemUnits.length-1 do
  begin
  If AnsiPos('Zoo',ItemUnits.item[I].attributes[3].Text) > 0 then
    begin
    ItemListStandard.Add(ItemUnits.Item[I].attributes[1].Text);
    ItemListStandardGUID.Add(ItemUnits.Item[I].attributes[0].Text);
    Iamge.LoadFromFile(PNGPath + ItemUnits.Item[I].attributes[5].Text);

    ImageList.add  // ja, wie kriege ich die PNG's in die ImageList?
    end;
  end;

  For I := 0 to ItemListStandardGUID.Count-1 do
  begin
    ListItem := ListView.Items.Add;
    Listitem.Caption := ItemlistStandardGUID.Strings[I];
    Listitem.Subitems.add(ItemlistStandard.Strings[I]);
    ListItem.ImageIndex := I;
  end;
end;

Aber an der markierten Stelle fehlt mir das KnowHow. Im Netz finde ich nur alte Kamellen von 2010 zum Thema.

Kann jemand helfen?

creehawk