ListenIndex überschreitet maximum

[hedie]

Hallo

Ich habe mal wieder ein Problem

Ich möchte diesen code anwenden Das markierte macht hier probleme

Delphi-Quellcode:

procedure TForm2.FormShow(Sender: TObject);
var
  ListItem: TListItem;
  i:integer;
begin
listboxm2.Items.AddStrings(listdbp());
i := 0;
repeat
begin
  with listboxm1 do
    begin
      ListItem := Items.Add;
      ListItem.Caption := listdbn.Strings[i];
      ListItem.SubItems.Strings[0] := listdbn.Strings[i]; <----------------------------------
    end;
    end;
    i := i + 1;
until i = tempc;
label5.Caption := 'Datenbank erfolgreich geladen';
end;

listboxm1 ist hier ein TListView

Wenn ich diesen code
ListItem.SubItems.Strings[0] := listdbn.Strings[i]; Mittels Button ausführe, dann gehts

die medlung lautet: Listenindex überschreitet das maximum (0)

was ist hier blos falsch?