[gelöst] SubItems in ListItem eintragen

[mjeheuer]

Moin

Ich versuche in Lazarus ein ListItem mit Daten zu füttern, aber irgendwie scheint das nicht zu funktionieren wie ich das mache.
Bei folgenden Code wird nur "eins" in die Box geschrieben, die anderen tauchen nicht auf.
Was mache ich falsch?

Delphi-Quellcode:

procedure TForm1.OKBitBtnClick(Sender: TObject);
var ListItem:TListItem;
begin
  ListItem:=ListView1.Items.Add;
  ListItem.Caption:='eins';
  ListItem.SubItems.Add('zwei');
  ListItem.SubItems.Add('drei');
end;

Gruß
Michael

--

Danke, hat sich gerade aufgelöst