Memo und listview ???

[Bernd29bln]

Hallo,

Wie bekomme ich meine Memo einträge in mein listview .

Mein versuch der leider nicht Funzt:

Code:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : Integer;
  ListItem: TListItem;
begin
     for i := 0 to Memo1.Lines.Count-1 do
       Begin
   ListItem := ListView1.Items.Add;
   ListItem.Caption := Memo1.Lines.Strings[i];
   ListItem.SubItems.Add(extractfilename(Memo1.Lines.Strings[i]));

end;

Wieso geht das nicht?

Gruss Bernd