Namen erscheinen gehen aber nicht weg

[luckys41]

Hab es jetzt so

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var i:Integer;
begin
  with ServerSocket1 Do
  begin
    for i:=0 to Socket.ActiveConnections Do
    begin
      Socket.SendText('PING');
    end;

  end;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 IF Serversocket1.Socket.Connections[SelectedVictim].ReceiveText = 'On' then
      begin end else begin
listbox1.items.delete(selectedvictim);
end;
end;

Client :

Delphi-Quellcode:

   if str = 'Ping' then
   begin
    Socket.SendText('On');
   end;

Aber es kommt immer die Fehlermeldung

Windows socket error: Eine Anforderung zum Senden oder Empfangen von Daten wurde verhindert, da der Socket nicht verbunden ist und (beim Senden über einen Datagrammsocket mit einem sendto-Aufruf) keine Adresse angegeben wurde (10057)