Нарушение доступа между строками

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

procedure TSummaryThread.Execute;
var
  When: String;
begin
  try
    FCarcassListCS := TCriticalSection.Create;
    FCarcassLists := TObjectList.Create;
    while (not Terminated) do
      begin
        try
          When := 'GetMessage';
          if (GetMessage(Msg, 0, 0, 0))
            then begin
                  if (Msg.message = WM_SUMMARISE)
                  then begin
                        When := 'WM_SUMMARISE';
                        Update(True);
                       end
                else if (Msg.message = WM_UPDATE)
                  then begin
                        When := 'WM_UPDATE';
                        Update(False);
                       end
                else if (Msg.message = WM_RELOAD_SETUP)
                  then begin
                        When := 'WM_RELOAD_SETUP';
                        ReloadSetup(Pointer(Msg.wParam));
                       end
                else if (Msg.message = WM_SEND_TO)
                  then begin
                        When := 'WM_SEND_TO';
                        SendToThread(Pointer(Msg.wParam));
                       end
                else if (Msg.message = WM_UPDATE_ORDER_SUM)
                  then begin
                        When := 'WM_UPDATE_ORDER_SUM';
                        DoOrderSummary;
                       end
                else if (Msg.message = WM_SUMMARISE_LOAD)
                  then begin
                        When := 'WM_SUMMARISE_LOAD';
                        LoadAndSummarise;
                       end
                  else begin
                        When := 'DispatchMessage';
                        DispatchMessage(Msg);
                       end;
                 end;
        except
          on E: Exception do
            Log('Exception (' + E.ClassName + ') in summary  thread at ' + When + ': ' + E.Message);
        end;
      end;
  except
    on E: Exception do
      Log('Exception (' + E.ClassName + ') in summary  thread (2) at ' + When + ': ' + E.Message);
end;

procedure TSummaryThread.Update(Full: Boolean);
var
  CarcassList: TObjectList;
  Where: String;
begin
  try
    Where := 'GetList';
    FCarcassListCS.Enter;
    try
      if (FCarcassLists.Count = 0)
        then raise Exception.Create('No carcass list found');
      CarcassList := FCarcassLists[0] as TObjectList;
      FCarcassLists.Extract(CarcassList);
    finally
      FCarcassListCS.Leave;
    end;
    FSummaryListCS.Enter;
    try
      Where := 'LoadFiles';
      SetFiles;
      try
        Where := 'AddCcs';
        CarcassList := GetShiftCarcassList(CarcassList);
        AddCarcassesToSummaries(CarcassList, Full);
      finally
        CloseFiles;
      end;
      Where := 'Send';
      SendSummaries;
      Where := 'Done';
    finally
      FreeAndNil(CarcassList);
      FSummaryListCS.Leave;
    end;
  except
    on E: Exception do
    begin
      E.Message := 'Update(' + Where + '): ' + E.Message;
      raise;
    end;
  end;
end;

Из журнала я могу сказать, что When := 'WM_UPDATE'; попал, а Where := 'GetList'; нет. Это наводит меня на мысль, что нарушение прав доступа происходит, когда локальная переменная Where в процедуре Update() добавляется в стек.

Какие дополнительные средства диагностики можно добавить, чтобы выяснить причину проблемы? Можно ли как-нибудь проверить, не поврежден ли стек и/или куда в стек добавляется переменная Where?

Я понимаю, что это довольно расплывчатый вопрос, но я не могу придумать ничего, чтобы попытаться его сузить.

Точная ошибка:

Исключение (EAccessViolation) в сводной ветке на WM_UPDATE: нарушение прав доступа по адресу 004B6759 в модуле «Application.exe». Чтение адреса 00000008