Validar Imagen

[MaMu]

Hice todo, desactive eso del IDE, lo que yo hago es lo siguiente:

Código Delphi [-]
for z:=0 to Lista.Count-1 do
  begin
     CopiarArchivo(lista.Strings[z],dirtmp+'\'+ExtractFileName(lista.Strings[z]));
     try
       Image5.Picture.LoadFromFile(lista.Strings[z]);
     except
       on EInvalidGraphic do
          begin
            DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
          end;
       on EFOpenError do
           begin
             DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
           end;
       on EOutOfResources do
           begin
             DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
           end;
        on E: EOSError do
           begin
             DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
           end;
        on EReadError do
           begin
             DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
           end;
      else begin
         DeleteFile(dirtmp+'\'+ExtractFileName(lista.Strings[z]));
      end;
 end;

Pero no me borra el archivo que esta mal, me lo deja. Porque?