Listboxeinträge mit Objekten löschen

[Luckie]

Über den Index des Listboxeintrages:

Delphi-Quellcode:

procedure TfrmAdressen.ShowContactDetails;
var
  ContactForm       : TContactForm;
begin
  if (lbContacts.ItemIndex > -1) then
  begin
    ContactForm := TContactForm.Create(nil);
    try
      // Kontakt Objekt von Listbox an Kontaktformular übergeben
      // Das Listbox Objekt ist ein Zeiger auf das Objekt in der Kontakt Collection
      ContactForm.Contact := TContact(lbContacts.Items.Objects[lbContacts.ItemIndex]);
      ContactForm.ContactList := ContactCollection;
      ContactForm.CurrentContactIndex := lbContacts.ItemIndex;
      ContactForm.ShowModal;

Aber der Zeiger scheint noch der alte zu sein.