[Indy 10] Problem mit TThreadList und OnConnect

[richie]

Guten Abend allerseits,

ich habe bei den Indys ein Problem mit dem OnConnect-Event und einer TThreadList. Um die Daten der einzelnen Clients zu sammeln, lege ich alles in der TThreadList ab. Wenn ich mit dem ersten Client connecte, läuft das Event ganz normal durch, es wird ein Element zur Liste hinzugefügt. Versuche ich mit dem zweiten Client zu verbinden, wird der Code normal ausgeführt, bricht dann aber ab, wenn die Daten des Clients zu der ThreadList hinzugefügt werden sollen.

Hier erst mal der relevante Code:

Delphi-Quellcode:

procedure TfrmMain.IdTCPServerConnect(AContext: TIdContext);
var
  Client: PClient;
begin
  GetMem(Client, SizeOf(TClient));

  Client.UserName := AContext.Connection.IOHandler.ReadLn('', 1000);
  Client.PeerIP := AContext.Binding.PeerIP;
  Client.HostName := GStack.HostByAddress(Client.PeerIP);
  Client.Port := AContext.Binding.PeerPort;
  Client.Connected := Now;
  Client.LastActionTime := Now;
  Client.LastAction := LOGIN;
  Client.Thread := AContext;

  AContext.Data := TObject(Client);

  try
    NetJobs.Clients.LockList.Add(Client); // <-- hier, der rest darunter wird nicht mehr ausgeführt
  finally
    NetJobs.Clients.UnlockList;
  end;

  VisualJobs.DoLog(LOGIN + ': User "' + Client.UserName + '" at [' + Client.PeerIP + ':'
      + IntToStr(Client.Port) + '] logged on.');
  AContext.Connection.IOHandler.WriteLn(WELCOME + #13
      + 'Welcome ' + Client.UserName + ' to ''' + NetJobs.ServerName + '''!'
      + #13);

  VisualJobs.RefreshUserList;
  NetJobs.DistributeUserList;
end;

Die ThreadList wird immer richtig über UnlockList geschlossen. Woran könnte es sonst noch liegen?