delphi - locklist での TThreadList アクセス違反

Question

var   all: TThreadList = nil;

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var  list:tlist;
begin
  try
  list := all.LockList;
  try
    list.Add(0);
  finally
    all.UnlockList;
  end;
  except

  end;
end;

telnet 127.0.0.1 1234

なぜアクセス違反になるのですか？

Answer 1

を作成するのを忘れただけだと思いますTThreadList。あなたが必要

all := TThreadList.Create;

どこか。たとえば、initializationそのユニットのセクションで。