procedure mit Sender

[sx2008]

Delphi-Quellcode:

// Leere Zeile wird ausgegeben
LI := lv_personen.Items.add;
//Daten der Abfrage werden ausgegeben:
LI.Caption := adoquery1.FieldValues['Nachname'] + ' ' + adoquery1.FieldValues['Vorname'];
LI.subItems.add(adoquery1.FieldValues['Geschlecht']);
LI.subItems.add(adoquery1.FieldValues['PLZ']);
LI.subItems.add(adoquery1.FieldValues['Ort']);
LI.subItems.add(adoquery1.FieldValues['Adresse']);

Ist dir aufgefallen, dass du obigen Code zweimal hingeschrieben hast?
Du darfst diesen Code ruhig in eine private Procedure des Formulars packen und schon wird die Sache etwas klarer und aufgeräumter.