[Проблема] - Прервать закачку, закрыть поток(tthread) Функция(WinInet)

[Человек_Борща]

Всем привет!

Есть вот такая функция у меня:

procedure HTTPGetFile(const FileURL, FileSaveDest: string; ShowProgress: Boolean; FormHandle: TForm; MsgForm: Cardinal);
const
  BufferSize = 4096; //size of buffer
var
  hSession, hURL: HInternet;
  Buffer: array[0..BufferSize] of Byte;
  BufferLen: LongWord;
  Files: TFileStream;
  Header, pAppName: string;
  LT: Cardinal;
begin
  LT := 0;
  pAppName := 'myApp';
  Header := 'User-Agent: Any';
  hSession := InternetOpen(PChar(pAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  try
    hURL := InternetOpenUrl(hSession, PChar(FileURL), PChar(Header), Length(header), 
INTERNET_FLAG_PRAGMA_NOCACHE or INTERNET_FLAG_RELOAD, 0);

    if (hURL <> nil) then
    begin
      try
        DeleteUrlCacheEntry(PChar(FileURL));
        Files := TFileStream.Create(FileSaveDest, fmCreate);
        repeat
          InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
          Files.WriteBuffer(Buffer, BufferLen);
          if (ShowProgress) then
          begin
            LT := LT + BufferLen;
            SendMessage(FormHandle.Handle, MsgForm, 0, LT + BufferLen);
          end;
        until
          BufferLen = 0;
        FreeAndNil(Files);
      finally
        InternetCloseHandle(hURL);
      end;
    end;
  finally
    InternetCloseHandle(hSession);
  end;
  SendMessage(FormHandle.Handle, MsgForm, 0, 0);
end;

Проблема:
процесс использования этой функции происходит в потоке TThread. По этому я реализовал ещё две кнопки "Пауза/продолжить" и "закрыть".

Собственно независимо от того в каком состоянии находится мой поток(приостановлен или работает) функция продолжае загружать.
Так же если попытаться закрыть поток вызовом Terminate
То поток не закроется пока пака функция не отработает т.е. пака не догрузит файл.

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