Namen erscheinen gehen aber nicht weg

[Helmi]

nebenbei bemerkt, was ist das für ein Gebilde:

Delphi-Quellcode:

IF Serversocket1.Socket.Connections[SelectedVictim].ReceiveText = 'On' then 
      begin end else begin 
listbox1.items.delete(selectedvictim);

Warum ein leerer begin-end-Block?

Wenn du den Eintrag löschen willst, wenn kein "On" gesendet wurde, dann machst es
am Einfachsten mit einem "not":

Delphi-Quellcode:

If not (Serversocket1.Socket.Connections[SelectedVictim].ReceiveText = 'On') then 
  listbox1.items.delete(selectedvictim);

[Edit] Und bevor ich verbessert werde: ja, es ginge auch mit einem <> und ohne not