Problem beim Löschen des letzten Datensatzes aus Query

[spuster]

Hallo zusammen,

hab ein Problem, wenn ich den letzten Datensatz aus einer Query mittels Delete löschen möchte. Letzter Datensatz heißt hier der letzte verbliebene Datensatz in der Query. Alle anderen Datensätze wurden vorher ohne Probleme gelöscht.

Die Fehlermeldung lautet:
"Entweder BOF oder EOF ist True, oder der aktuelle Datensatz wurde gelöscht. Der angeforderte Vorgang benötigt einen aktuellen Datensatz"

Hier mein vereinfachter Programm-Code:

Delphi-Quellcode:

Query_Picture.First;
while not Query_Picture.Eof do
begin
  Filename := Query_Picture.FieldByName('filename').AsString;
  if not FileExists(Filename) then
    Query_Picture.Delete          
  else
    Query_Picture.Next;
end;

Vielleicht hat habt Ihr ja einen Tip, warum es nicht funktioniert.

Gruß,
Ben