Wieso willst Du überhaupt den Index haben? Falls Du über den Index in einem anderen Array irgendwelche Daten ablegen willst, dann verwende lieber die 'Data'-Eigenschaft des Sockets.
Delphi-Quellcode:
procedure TfmMain.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.Data := TUserData.Create;
end;
procedure TfmMain.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
TUserData(Socket.Data).Free;
end;
procedure TfmMain.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
begin
With TUserData(Socket.data) do // ja ja, with ist pöse
end;