TListView Group Icons verschwinden beim ausfuehren

[Win32.API]

Hallo,

wenn ich einen TListView mit GroupView erstelle sieht zur Designzeit alles super aus, aber zur Runtime sind die Icons verschwunden.

Hat jemand eine Idee warum?

Delphi-Quellcode:

var
  lv1: TListView;
begin
  lv1 := TListView.Create(Self);
  with lv1_ do
  begin
    Name := 'lv1';
    Parent := Self;
    Left := 13;
    Top := 12;
    Width := 216;
    Height := 176;
    with Columns.Add do begin 
      Caption := 'TListView';
      Width := 211;
    end;
    with Groups.Add do begin 
      Header := '1';
      GroupID := 0;
      State := [lgsNormal];
      HeaderAlign := taLeftJustify;
      FooterAlign := taLeftJustify;
      TitleImage := 0;
      ExtendedImage := -1;
    end;
    with Groups.Add do begin 
      Header := '2';
      GroupID := 1;
      State := [lgsNormal];
      HeaderAlign := taLeftJustify;
      FooterAlign := taLeftJustify;
      TitleImage := 1;
      ExtendedImage := -1;
    end;
//  Items := // please assign
    GroupHeaderImages := il1;
    GroupView := True;
    TabOrder := 0;
    ViewStyle := vsReport;
  end;

Grueße,
Win32