Schleife nimmt ersten und letzten Datensatz nicht

[grenzgaenger]

Delphi-Quellcode:

 Kassenbuch.ExecSQL('delete from kassenbuch');

 // filtern
 Ausgaben.active := false;
 Ausgaben.SQL.Clear;
 Ausgaben.SQL.Add('insert into kassenbuch (datum, zurgnr, betrag, betreff) select datum, zurgnr, betrag * -1, vermerk from ausgaben');
 Ausgaben.active := True;

 showMessage('Das Kassenbuch wurde erfolgreich erstellt');

hab gesehen, die feldnamen stimmen nicht überein.