Корректная закачка файлов.

[Dj_smart]

Доброго времени суток! Я типа пишу программу, в которой будет обновление. Но с этим у меня запинка Я использую следующее:

function DownloadFile(SourceFile, DestFile: string): Boolean; 
begin 
  try 
    Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
  except 
    Result := False; 
  end; 
end;
procedure TForm1.Timer1Timer(Sender: TObject);
const
  SourceFile = 'http://www.smt-meneger.narod.ru/CHAT_by_SMT.exe';
  DestFile = 'CHAT_by_SMT.exe';
begin
  timer1.Enabled:=false;
  if DownloadFile(SourceFile, DestFile) then 
  begin 
    ShowMessage('Обновлено успешно!');
    ShellExecute(Application.Handle, PChar('open'), PChar(DestFile),
      PChar(''), nil, SW_NORMAL) 
  end 
  else 
    ShowMessage('Ошибка при закачке ' + SourceFile)
end;

А оно один раз только закачало и с тех пор выдает что закачано, даже ниразу не мигнув(лампочка на модеме). Как быть?
Если кто знает, дайте плиз процедуру, которая скачивает, но не эту

ПыСы: Поиск юзал. Ничего не нашёл.

[Viteef]

Сообщение от Dj_smart

А оно один раз только закачало и с тех пор выдает что закачано, даже ниразу не мигнув(лампочка на модеме). Как быть?
Если кто знает, дайте плиз процедуру, которая скачивает, но не эту

Скорей всего файл уже существует, поэтому и не скачивает.

[Dj_smart]

Дело в том, что даже если файла нету, всёравно не скачивает

[adigozalov]

Сообщение от Dj_smart

Дело в том, что даже если файла нету, всёравно не скачивает

Дело в том что, в narod.ru не можешь скачать файл, с прямом линком (по пробовай скачать в browsere). Ты уж пробуй другой линк...или залей файлика другую хостеру