Wandel die Schleife doch um...
Delphi-Quellcode:
{finde heraus ob es Einträge gibt und bau daraus ein if}
Query_Picture.First;
repeat
Filename := Query_Picture.FieldByName('filename').AsString;
if not FileExists(Filename) then
Query_Picture.Delete
else
Query_Picture.Next;
until Query_Picture.Eof;
{ende vom if}