Datenbank zurücksetzen..

[napstar]

hey.. hab da mal ein kleines problemchen ^^..
unzwar wollte ich meine datenbank per mausklick zurücksetzen.. nur leider will es nicht so richtig funktionieren..

Code:

  try
  for i := 1 to ADOTable1.RecordCount do begin
    ADOTable1.Edit;
    ADOTable1.FieldByName('Anzahl').AsInteger := 0;
    ADOTable1.FieldByName('Falsch').AsBoolean := False;
    ADOTable1.Post;
  end;
  finally
    ShowMessage('Ihre Datenbank wurde zurückgesetzt.');
  end;

was mache ich denn nur falsch?.. übrigens "ihre datenbank wurde zurückgesetzt" wird mir angezeigt obwohl es keine veränderungen in der datenbank gibt..