Delphi ListView Gruppen zusammenklappen

[Back2Code]

Hallo Leute, ich habe folgendes Problem: Ich benutze ein ListView mit verschiedenen Gruppen. Diese wiederrum beinhalten natürlich auch ein paar Elemente. Da der Anwender nicht beim Programmstart von lauter "Einträgen" erschlagen werden soll, wollte ich die ListView Gruppen beim Start direkt alle einklappen was mir leider bisher nicht gelungen ist.

Komischerweise lässt in der Design Zeit auch nicht der State der Gruppe auf lgsCollapsed ändern. Bleibt einfach false.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Listview2.Groups.BeginUpdate;
    for i := 1 to Listview2.Groups.Count - 1 do
    begin
       Listview2.Groups[i].State := [lgsCollapsed];
    end;
    Listview2.Groups.EndUpdate;
end;

Obriger Code wrkt sich komischerweise auf das Listview so aus, dass die Einklappicons verschwinden....

Wie ist es möglich bestimmte Gruppen am besten nach eindeutiger ID einzuklappen bzw eingeklappt zu lassen.

IDE Delphi 2010