ListView mit OwnerData schneller machen?

[OrNEC]

Hallo,

ich habe eine ListView, die mit der Zunahme der Daten total langsamer wird. Nun habe ich gelesen, dass man mit OwnerData sozusagen eine virtuelle LV machen kann und die Daten im Ereignis OnData lädt. Nun lade ich die Daten wie folgt in die LV, wie mache ich das jetzt mit OnData? Ich fülle die LV noch an anderen Stellen, muss auch das in die OnData? Irgendwie verstehe ich das ganze nicht so richtig. Danke!

Delphi-Quellcode:

procedure TForm1.ShowMedia();
var dbFile: String;
    db: TSQLiteDatabase;
    tb: TSQLIteTable;
    MyItem: TListItem;
    s: String;
begin
  // ListView Eintraege loeschen
  MediaListView.Clear;
  EntleiherListView.Clear;

  dbFile := ExtractFilePath(ParamStr(0)) + 'Database.db';
  db := TSQLiteDatabase.Create(dbFile);
  try

    // Datensaetze der media Tabelle einlesen
    tb := db.GetTable('SELECT media.id_media,'
    + 'media.mediatitle, '
    + 'media.description,'
    + 'place.planame, '
    + 'mediatype.mtypename, '
    + 'category.catname, '
    + 'entleiher.elastname, '
    + 'entleiher.efirstname, '
    + 'author.aname '
    + 'FROM media '
    + 'LEFT JOIN place ON media.fk_place_id=place.id_place '
    + 'LEFT JOIN mediatype ON media.fk_mediatype_id=mediatype.id_mediatype '
    + 'LEFT JOIN category ON media.fk_category_id=category.id_category '
    + 'LEFT JOIN language ON media.fk_language_id=language.id_language '
    + 'LEFT JOIN author ON media.fk_author_id=author.id_author '
    + 'LEFT JOIN entleiher ON media.fk_entleiher_id=entleiher.id_entleiher ORDER BY media.mediatitle ASC');
    try
      // Alle Datensaetze in die ListView einlesen
      if tb.Count > 0 then
      begin
        while not tb.EOF do
        begin
          MyItem := MediaListView.Items.Add;
          MyItem.Data := Pointer(tb.FieldAsInteger(tb.FieldIndex['id_media'])); //data mit ids fuellen
          MyItem.Caption := tb.FieldAsString(tb.FieldIndex['mediatitle']);
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['aname']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['description']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['mtypename']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['catname']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['planame']));
          MyItem.SubItems.Add(tb.FieldAsString(tb.FieldIndex['elastname']) + ' ' + tb.FieldAsString(tb.FieldIndex['efirstname']));
          tb.Next;
        end;
      end;

    finally
      tb.Free;
    end;


  finally
    db.Free;
  end;

  // Anzahl der Datensaetze anzeigen
  ShowListCount();

end;