internet üzerinden excel dosyası indirirken hata

[istanbul34]

Elimde aşağıdaki gibi bir kod var ve arasıra nedenini anlayamadığım şekilde şu hatayı veriyor:
Hata...: Exception
Hata acıklaması..:Error downloading URL:http://www.xxxxx.net/stok/STOKTABLE.xls
Belirttiğim adreste STOKTABLE.xls dosyası mevcut fakat bazen çalışıyor bazen de belirttiğim hatayı veriyor. İnternet bağlantımızdada herhangi bir sorun yok. Yardımcı olan arkadaşlara teşekkürler...

procedure Tfrmstokkodgetir.guncelClick(Sender: TObject);
begin
if MessageDlg('Bu İşlemi Yapmak İstediğinize Emin misiniz?',mtConfirmation,[mbYes,mbNo],0)=idYes then
begin

if internet_1=true then
begin
next;

end
else
begin
showmessage('İnternetiniz Bağlı değildir Kontrol ediniz...??');
sysutils.Abort;

end;

with TDownloadURL.Create(self) do
try

URL:='http://www.xxxxx.net/stok/STOKTABLE.xls';

FileName := trim(frmgiris.datayeri)+'\STOKTABLE.xls';

ExecuteTarget(nil) ;
Createthread(nil, 0, @Thread1, nil, 0, hThr1);

finally

Free;
end;

stok_aktar() ;
showmessage('GÜNCELLEME İşlemi Bitmiştir.....???');

end
else
begin
sysutils.Abort;
end;

end;