Утечка памяти в WaitForMultipleObjects

procedure TMasterThread.PollJobs;
const
  THIS_METHOD = 'PollJobs';
var
  i         : integer;
  wo_handles: array [0..1] of THandle;
  wo_result : DWORD;
begin
  if m_Jobs.Count = 0 then
    Exit;
 
  wo_handles[0]:= THandle(m_EvTerminate.Handle);
  for i:= 1 to m_Jobs.Count do
    wo_handles[i]:= TReestrThread(m_Jobs.Items[i - 1]).Handle;
 
  wo_result:= WaitForMultipleObjects(m_Jobs.Count + 1, @wo_handles, false, 1000); // <- вот тут утечка памяти
 
...
 
end;

procedure TMasterThread.PollJobs;
const
  THIS_METHOD = 'PollJobs';
var
  i         : integer;
  wo_handles: array [0..1] of THandle; //TWOHandleArray;
  wo_result : DWORD;
begin
  if m_Jobs.Count = 0 then
    Exit;
 
  wo_handles[0]:= THandle(m_EvTerminate.Handle);
  for i:= 1 to m_Jobs.Count do
    wo_handles[i]:= TReestrThread(m_Jobs.Items[i - 1]).Handle;
 
  wo_result:= WaitForMultipleObjects(m_Jobs.Count + 1, @wo_handles, false, 1000);
 
  case wo_result of
    WAIT_OBJECT_0:
      Exit;
    WAIT_TIMEOUT:
      Exit;
    WAIT_FAILED:
    begin
      LogError(GetLastError, 'WaitForMultipleObjects failed', THIS_METHOD, Self);
      Exit;
    end;
  end;
 
  if (WAIT_OBJECT_0 < wo_result) and (wo_result <= WAIT_OBJECT_0 + m_Jobs.Count) then
  begin
    i:= wo_result - WAIT_OBJECT_0 - 1;
    TReestrThread(m_Jobs.Items[i]).Free;
    m_Jobs.Items[i]:= nil;
    m_Jobs.Delete(i);
  end;
 
  i:= 0;
  while i < m_Jobs.Count do
  begin
    try
      if ((Assigned(TReestrThread(m_Jobs.Items[i]))) and (TReestrThread(m_Jobs.Items[i]).LastActionTime + m_LagLimit > Now())) then
      begin
        LogError(0, 'Задание не проявляет активность: file_id = ' + IntToStr(TReestrThread(m_Jobs.Items[i]).FileId), THIS_METHOD, Self);
        TReestrThread(m_Jobs.Items[i]).Free;
        m_Jobs.Items[i]:= nil;
        m_Jobs.Delete(i);
        Dec(i);
        LogInfo('Задание снято: file_id = ' + IntToStr(TReestrThread(m_Jobs.Items[i]).FileId), THIS_METHOD, Self);
      end;
    except
      on e: Exception do
      begin
        LogError(0, 'Ошибка при проверке задания: file_id = ' + IntToStr(TReestrThread(m_Jobs.Items[i]).FileId) + ' (' + e.Message + ')', THIS_METHOD, Self);
      end;
    end;
 
    Inc(i);
  end;
end;

TReestrThread(m_Jobs.Items[i]).Free;