Tserversocket user identifizieren

[gandime]

soweit war ich auch schon

Delphi-Quellcode:

procedure TForm1.ss_serverClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
  i_socket:integer;
begin
  i_socket:=Socket.SocketHandle;
... auflisten usw.
end;

sobald ich dann was senden möchte tritt ein fehler auf:

Delphi-Quellcode:

procedure TForm1.bt_sendClick(Sender: TObject);
var
  i,i_wo:integer;
begin
  for I := 0 to lv_bots.Items.count - 1 do
  begin
    i_wo:=strtoint(lv_bots.Items.Item[i].SubItems.strings[8]);
    if (ss_server.Socket.Connections[i_wo].Connected=true) then
    begin
      ss_server.Socket.Connections[i_wo].SendText(s_bauliste_send+'|');
    end;
  end;
end;

Fehlermeldung:

Zitat:

Erste Gelegenheit für Exception bei $7C812A5B. Exception-Klasse EListError mit Meldung 'Listenindex überschreitet das Maximum (5980)'. Prozess Project1.exe (4040)