Speziellen Client vom Server trennen?

[ziwu-zubi]

Danke für die schnelle Antwort! Werd' gleich mal probieren


...Hier das konkrete Bsp:

Delphi-Quellcode:

procedure TForm1.btn_kickClick(Sender: TObject);
var
  Selected_Client, i, x : Integer;
  Selected_Text : string;
begin  
  Selected_Text := lb_clients.Items.Strings[lb_clients.ItemIndex];
  for x := 0 to ServerSocket1.Socket.ActiveConnections-1 do
  begin
    if ServerSocket1.Socket.Connections[x].RemoteAddress = Selected_Text then
    begin Selected_Client := x;
  end;
end;