При выполнении кода форма зависает. Как вывести прогрессбар?

function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
begin
   Result:=False;
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
   dwIndex := 0;   dwCodeLen := 10;
   try
      hURL := InternetOpenURL(hSession, PChar(fileURL),nil,0,0,0);
      HttpQueryInfo(hURL, HTTP_QUERY_CONTENT_LENGTH, @dwcode, dwcodeLen, dwIndex);
      res := pchar(@dwcode);
      Memo1.Lines.Add(res); // вывожу на мемо размер требуемого файла
      pb.Max := StrToInt(res); // задаю макс для прогрессбара
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         Timer1.Enabled := true;
         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;