Otro típico List Index Out Of Bounds

[rounin]

Saludos,

Perdoname por mi mal español.

Trato explicar mas completo.
Ahora usas dos listas para guardar TClient
(lbClients.Items y Clients)
y tratas sincronizarlas en varios lugares.
En principle eso es possible, pero mejor
o usar una lista,
o sincronizar en solo una lugar (cada vez borrar una
y rellenar).
En cualquier caso no es buena idea guardar
indices en lista (como ListLink), porque las operaciones
Add, Remove, Insert cambian orden de objetos en lista.

El mas simplemente manera en tu case es usar
solo una lista (lbClientes.Items.Objects)
y no sincronizar nada:

Código Delphi [-]
 
{...}
//ListLink : Integer; // no necesita
{...}
//Clients : TList; // no necesita
{...}
 
procedure TfrmLambda.IdTCPServer1Connect(AContext: TIdContext);
var
  Client : TSimpleClient;
begin
  Client := TSimpleClient.Create;
  Client.DNS := AContext.Connection.Socket.Binding.PeerIP;
  Client.Name := 'Registrandose';
 
  //Client.ListLink := lbClients.Items.Count;
 
  Client.Thread := AContext;
 
  //lbClients.Items.Add(Client.Name);
  lbClients.Items.AddObject(Client.Name, Client);
 
  AContext.Data := Client;
 
  //Clients.Add(Client);
 
  AContext.Connection.IOHandler.Write('Nick: ');
end;
 
procedure TfrmLambda.IdTCPServer1Disconnect(AContext: TIdContext);
var
  Client : TSimpleClient;
begin
  Client := Pointer(AContext.Data);
  BroadCastMsg('004', '*** '+Client.Name+' se ha salido');
 
  //Clients.Delete(Client.ListLink);
 
  //lbClients.Items.Delete(lbClients.Items.IndexOf(Client.Name));
 
  lbClients.Items.Delete(lbClients.Items.IndexOf(Client.Name));
  Client.Free;
  AContext.Data := nil;
  UpdateClientList;
end;
 
//procedure TfrmLambda.UpdateClientList; // no necesita
 
procedure TfrmLambda.lbClientsClick(Sender: TObject);
var
  Client : TSimpleClient;
begin
  if lbClients.ItemIndex = -1 then
    exit;
 
  //Client := Clients.Items[lbClients.ItemIndex];
  Client := lbClients.Items.Objects[lbClients.ItemIndex];
 
  lbNombre.Caption := Client.Name;
  lbIp.Caption := Client.DNS;
end;