ich gehe mal davon aus, dass du TListBox und TServerSocket verwendest und in der ListBox die
IP Adresse stehen soll:
Delphi-Quellcode:
//Neue Verbindung -> IP in die Listox
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ListBox1.Items.Add(Socket.RemoteAddress);
end;
//Verbindung beendet -> IP aus der ListBox löschen
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
ListBox1.Items.Delete(ListBox1.Items.IndexOf(Socket.RemoteAddress));
end;