threat hata verdiğinde proje klasöründe dosya silinmesi?

[cfyasar]

Üzerinde çalıştığım uygulamada bir thread kullanıyorum. Programı derleyiciden çalıştırıp test ederken threat bir hata verirde uygulama sonlanırsa, projeyi çalıştığım klasörün içindeki dpr ve bikaç tane pas dosyasını siliyor. Bu pas dosyalarıda threat çalışırken kullandığım foksiyonların olduğu pas lar.

Threat de bir klasördeki resimleri alıp, küçültüp başka bir klasöre atıyor. Resim çok olursa programın açılması gecikmesin diye bu yolu seçtim. Threatin sonlanması bazen 2 dakikayı buluyor.

Threat i şöyle çağırıyorum

Kod: Tümünü seç

Createthread(nil, 0, @thread1, nil, 0, hThr1);

ve kodu da böyle:

Kod: Tümünü seç

try
      for i := 0 to High(Form1.ReadPhotos) do
      begin
         if Form1.StopThread then Exit;
         if CopyFile(PChar(Form1.ReadPhotos[i]), PChar(Form1.threadpath + inttostr(i) + '.JPG'), false) then
         begin
               ResizeImage(Form1.threadpath + inttostr(i) + '.JPG');
               ......
               ......
         end;
      end;

  finally
    ..........
  end;

Böyle bir hatayla karşılaşan oldu mu?