Listview (gleiche Zeile- unterschiedliche Spalte)

[Testy]

Dann meldet er mir für diese Zeile
Assert(ListItem<>NIL); Im Project ist eine Exception der Klasse EAssertionFailed aufgetreten!

Delphi-Quellcode:

WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
  l := TStringList.Create;
  r := TRegExpr.Create;
  try
    r.Expression := '[0-9]{2}:[0-9]{2}:[0-9]{2}';
    if r.Exec(Memo1.Lines.Text) then
    repeat
      ListItem:= ListView1.Items[iRow];
      Assert(ListItem<>NIL);
      sMatch:= r.Match[0];
      ListItem.SubItems.Add(sMatch);
    until not r.ExecNext;
  finally
    r.Free;
    l.Free;
  end;

Es müssten im Moment 19 Zeilen in die Listview eingetragen werden!