Delphi: TThreadList иногда блокирует программу

Иногда эта функция блокирует мою программу, и она зависает, пока я ее не закрою. Что здесь не так?

function del_from_list(id:string):boolean;
var i : integer;
begin
  Result := True;
  try
    with global_list.LockList do
    begin
      for i:=0 to Count-1 do
      begin
        if Tthread_list(Items[i]).id = id then
        begin
          Delete(i);
          break;
        end;
      end;
    end;
  finally
    global_list.UnlockList;
  end;
end;

класс

  Tthread_list = class
  public
    id   : string;
    constructor Create(const id: string);
  end;

Я добавляю в список так:

global_list.Add(Tthread_list.Create('xxx'));

глобальный список - это глобальная переменная

var global_list : TThreadList = nil;