Зависание при скачке файла

[Lauri]

Всем привет, такая проблема...
При скачивании файла из инета (делаю это так)

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; 


procedure TForm1.Button1Click(Sender: TObject);
begin
   FileOnNet:=edit1.text;
   LocalFileName:=edit2.text;
  application.ProcessMessages;
   if GetInetFile(FileOnNet,LocalFileName)=True then
      ShowMessage('Download successful')
   else
      ShowMessage('Error in file download')
end;

Зависает программа до того времени пока не закончит скачивание.
Вопрос :
Как избавится от зависания, и как вывести на прогресс бар скачивание файла?

[BOBAH13]

Вывести загрузку файла в отдельный поток

[dmitriegorovih]

Зависает программа до того времени пока не закончит скачивание.

application.ProcessMessages;