Problem beim Löschen des letzten Datensatzes aus Query

[Catbytes]

Und so?

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 
   if not Query_Picture.Eof then // <--- Aenderung
    Query_Picture.Next; 
end;

Grad so aus dem Kopf - ungetestet...