IndexProblem bei DB

[RX3]

Hallo erstmal,

bin leider nicht der Beste was Delphi-Sachen angeht und bräuchte mal wieder Hiilfe. In der Suche hab ich auch nichts entdeckt, sorry.

Also hier mein Problem:
Ich will in einer Checklistbox verschiedene Items adden und löschen können. Aber jedesmal beim schliessen des Programms und wieder öffnen ist in der listbox immer 1 Item weniger und ich weiss nicht woran es liegt.

Die Items werden in einer Datenbank gespeichert für die ihr nen ALIAS "test"anlegen müsst.

Meine Vermutung wo der Fehler sein müsste hab ich als Kommentar eingefügt:
QC:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
while not table1.Eof do
  begin
  Checklistbox1.Items.Add(table1.fieldbyname('Genre').AsString);
  table1.Next;      //hier müsste ein Fehler vorliegen
  end;
end;

procedure TForm1.ButtonAddClick(Sender: TObject);
begin
checklistbox1.Items.Add(table1.fieldbyname('Genre').AsString);
table1.Insert;
end;

procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
checklistbox1.Items.Delete(checklistbox1.ItemIndex);  //hier müsste ein Fehler vorliegen
table1.delete;
end;