eintragen in listview sehr, sehr langsam

[Marco Steinebach]

Hallo Listers,
ich habe eine Listview und eine Stringliste. Die Einträge der Stringliste sollen in die Listview übertragen werden. Allerdings ist mein Verfahren fürchterlich langsam, d.h., für ca. 1.100 einträge, braucht das ganze ca. 5 Minuten.
Hab ich hier was falsch gemacht? Gibt es eine bessere Lösung?
Hiiiiilfe!
Hier der Code:

Delphi-Quellcode:

    // liste ist eine stringliste die mit Werten gefüllt ist.
    // lv die Listview, die gefüllt werden soll.
    // NeuerEintrag: TListItem;
    Lv.Items.BeginUpdate;
    for i := 0 to Liste.Count - 1 do
    begin
        NeuerEintrag := Lv.Items.Add;
        NeuerEintrag.Caption := IntToStr(lv.Items.count);
        NeuerEintrag.SubItems.Add(ExtractFileName(Liste[i]));
        NeuerEintrag.SubItems.Add(ExtractFilePath(Liste[i]));
    End;
    Lv.Items.EndUpdate;

Vielen Dank und herzliche Grüße
Marco