Скачивание файла из интернет,используя indy. создание прогрес-бара

[Dimedrol1536]

procedure TForm1.downloadsClick(Sender: TObject);
var
FileOnNet,LocalFileName:string;
begin
ShowMessage('Ñåé÷àñ íà÷í¸òñÿ çàãðóçêà íîâîé âåðñèè ïðîãðàììû. Íå òûêàéòå ïî îêíó.');
FileOnNet:='http://www.d3d-zona.ru/file/Game.exe';
LocalFileName:='Game.exe';
 if GetInetFile(FileOnNet,LocalFileName)=True then
  begin
ShowMessage('Óñïåøíî!!!');
  end
 else
  begin
ShowMessage('Íå ìîãó ñêà÷àòü((((');
  end;
end;

 procedure TForm1.IdHTTP1Work(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Int64);
begin
sProgressBar1.Position:=AWorkCount;//колл. скачанного на данный момент
end;

procedure TForm1.IdHTTP1WorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Int64);
begin
sProgressBar1.Position:=0;
sProgressBar1.max:=AWorkCountMax;//Размер файла
end;

procedure TForm1.IdHTTP1WorkEnd(Sender: TObject; AWorkMode: TWorkMode);
begin
sProgressBar1.Position:=0;

end;

Прогрессбар не хочет работать.
Всю инфу взял с сети, ответа так и не нашол.

[Dinmaite]

Цитата: Сообщение от Dimedrol1536(2) GetInetFile

А это собственно что?

[Dimedrol1536]

Цитата: Сообщение от Dinmaite А это собственно что?

function GetInetFile(const fileURL,FileName:String):boolean;
const
BufferSize=1024;
var
hSession,hURL:HInternet;
Buffer:array[1..BufferSize] 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);
  try
  AssignFile(f,FileName);
  Rewrite(f,1);
   repeat
   InternetReadFile(hURL,@Buffer,SizeOf(Buffer),BufferLen);
   BlockWrite(f,Buffer,BufferLen)
   until
   BufferLen=0;
   CloseFile(f);
   Result:=True;
  finally
  InternetCloseHandle(hURL)
  end
 finally
 InternetCloseHandle(hSession)
 end
end;

[Dinmaite]

Тогда вопрос такой:
Почему ты ожидаешь работы от IdHTTP1, если не пользуешся им для скачивания файла?