Listview zeigt nichts an?

[lucius]

Guten Abend Leute,

Ich habe Folgenden Code der mir die Newsgroups in einer Listview anzeigen soll aber leider sehe Ich keine Eintraege erscheinen.
Ich sehe dass die Listview gefuellt wird aber angezeigt wird nichts.
Kann mir da einer bitte weiter helfen?
Waere sehr nett.
Listview.ViewStyle steht auf vsReport.

Delphi-Quellcode:

procedure TForm1.GroupsZeigenClick(Sender: TObject);
Var
tsl: TStringList;
tli: TListItem;
Hi,Lo,i: Integer;
NewsGroup,Stat: String;
begin
  grps.Clear; // ListView für die NewsGroups
  Application.ProcessMessages;
  tsl:=TStringList.Create;
  idNNTP1.GetNewsgroupList(tsl);
    For i:=0 to tsl.Count-1 do begin
    tli:=grps.Items.Add;
    idNNTP1.ParseNewsGroup(tsl[i],NewsGroup,Hi,Lo,Stat);
    tli.Caption:=NewsGroup;
      if (Lo>=Hi) then
      tli.SubItems.Add('0')
      else
      tli.SubItems.Add(IntToStr(Hi-Lo));
      if Length(LowerCase(Stat[1])) > 0 then
        case Stat[1] of
        'y':tli.SubItems.Add('R/W');
        'n':tli.SubItems.Add('RO');
        'm':tli.SubItems.Add('MOD');
    end;
end;
tsl.free;
end;

Gruss Lucius.