procedure TForm1.Button2Click(Sender: TObject);
  var aktiv:Integer;
begin
  aktiv:=Listbox1.ItemIndex;
  Kreise[aktiv].loeschen;
  Listbox1.Items.Delete(aktiv);
  Kreise[aktiv].Destroy;
  Listbox1.Items.Delete(aktiv);
end;