Проблемы с загрузкой файл

[саша40]

Привет. Пишу программу обновление. И дошел почти до конца осталось только закачать программно файлы. Вот код:

function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
var
   hSession, hURL: HInternet;
   Buffer: array[1..1024] of Byte;
   BufferLen: DWORD;
   f: File;
   sAppName: String;
begin
   Result:=false; //присваеваеваем значение результату
   sAppName:=ExtractFileName(Application.ExeName);  //извлекаем файловое имя программы
   hSession:=InternetOpen(PChar(sAppName),INTERNET_OPEN_TYPE_PRECONFIG,nil,nil,0); //открываем ссесию
   try
     hURL:=InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0); //открываем URL
     try
       AssignFile(f,FileName); //открываем файл
       ReWrite(f,1); //подготовляем запись
       repeat
         InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen); //читаем файл
         BlockWrite(f,Buffer,BufferLen); //записываем пакетам
         Application.ProcessMessages;
       until
         BufferLen = 0; //буферу длины присваеваем значение 0
       CloseFile(f); //закрываем файл
       Result:=True; //ресультат
     finally
       InternetCloseHandle(hURL); //закрываем URL
     end;
   finally
     InternetCloseHandle(hSession); //закрываем ссесию
   end;
end;

Вот применение:

if GetInetFile('http://yadi.sk/d/GZ_cVc5C05gCK',ExtractFilePath(Application.ExeName) + 'Файл.txt')=true  then
StatusBar1.SimpleText:='Файл скачан';

Всё скачивается. Но вот проблема скачивается не сам файл, а только код веб-страницы. Как сделать так чтобы файлы автоматически искался по ссылке и скачивался?