Многопоточная загрузка

[RelictOs]

Всем привет!
Недавно меня посетила идея написать нечто вроде многопоточного загрузщика файлов. Такие данные, как размер, скорость и главное состояние загрузки я решил выводить в TNextGrid (аналог TStringGrid с расширенными возможностями вроде колонок-прогрессбаров).
Как я уже сказал, концепция программы предполагает многопоточность, которую в целом и общем я реализовал. Но есть одно но (точнее даже 2).

Начну с первого и главного - при загрузке нескольких файлов одновременно они загружаются не одновременно, а по очереди.
Код выполнения потока:

procedure TDownloadThread.Execute;
var
  hInet,  //соединение
  hURL: HINtERNET;    //ссылка на файл
  BufArr: array[1..1024] of byte; //буфер, в который будем скачивать
  BufLen: DWORD;
  sFile: file; //наш файл
  i: integer;
begin
  hInet := InternetOpen(PChar(Application.ExeName),INTERNET_OPEN_TYPE_PrECONFIG,nil,nil,0); //открываем соединение

  for i := 0 to Length(filelist)-1 do  //где filelist - чтото вроде набора файлов для скачивания
    begin
      hURL := InternetOpenURL(hInet,PAnsiChar(filelist[i].url),nil,0,0,0);
      if FileExists(fclientpath+'\'+filelist[i].folder) then
        DeleteFile(fclientpath+'\'+filelist[i].folder);
      AssignFile(sFile,fclientpath+'\'+filelist[i].folder);
      Rewrite(sFile,1);

      repeat
        InternetReadFile(hURL,@BufArr,Sizeof(BufArr),BufLen);
        downloaded := downloaded+ BufLen;
        BlockWrite(sFile,BufArr,BufLen);
        Synchronize(showprogress);
      until BufLen=0;
      CloseFile(sFile);
      hURL := 0;
    end;
  InternetCloseHandle(hInet); //закрываем соединение
end;

//и процедура вывода ShowProgress
procedure TDownloadThread.ShowProgress;
begin
  fGrid.Cell[3,frow].AsInteger := round(downloaded/totalsize*100); //fGrid - указатель на наш NextGrid; Downloaded - сколько загруженно
  //a TotalSize - размер всех всех файлов в списке, который вычисляется еще до Execute
  Application.ProcessMessages;
end;

Надеюсь, в коде все понятно прокомментировано, и проблема лишь в моей невнимательности или глупости
С нетерпением жду ответов


Теперь вторая проблема - очень хотелось бы реализовать паузу при загрузке, но и это оказалось не так просто.
Поскольку Suspend в данном случае (насколько я понял) не лучший метод (хотя и он не работает), я решил сделать это через булевскую переменную.
Проблема же в том, что при вызове функции возникает AccessViolation, и я понятия не имею почему и что с ним делать.

Код создания потока и собственно паузы:

constructor TDownloadThread.Create(list: TXMLDocument; var Grid: TNextGrid; row: integer; clientpath: string);
begin
  inherited Create(true);
  FreeOnTerminate := true; //поток освобождается при завершении
  frow := row;             //id или наша строка таблицы
  fclientpath := clientpath; //папка для общей загрузки
  SetFileList(list);       //составляем список файлов для скачивания

  fEnablePause := false; //нельзя ставить поток на паузу
  fPaused := false; // переменная паузы в false

  if Length(filelist) <= 0 then  // если скачивать нечего - закрываемся
    begin
      Grid.Cell[3,frow].AsInteger := 100;
      Self.Terminate;
      exit;
    end;

  totalsize := GetTotalSize; //вычисляем полный размер файлов
  downloaded := 0; // загружено - пока 0
  fGrid := @Grid;   // присваиваем указатель на таблицу
  fGrid.Cell[5,frow].AsString := inttostr(round(totalsize/1024))+ ' KB';
end;

//и собственно функция* паузы
function TDownloadThread.Pause: boolean;
begin
  result := false;
  if (EnablePause) or (fPaused) then exit;
  fPaused := true;
  result := true;
end;

Хочу уточнить, что в коде первой проблемы вы не заметите применения цикла вроде

while fPaused do
 Application.ProcessMessages;

потому что из-за изменения алгоритма загрузки(раньше использовал Indy) я ее временно убрал. Но суть проблемы не в несратываемости, а в ошибке при ее вызове из программы.