TServerSocket SendBuffer nichts kommt an beim Client

[DeluxXx]

Also ich hab einige Beiträge bei DP durchgelesen es sieht jetzt so aus
Listview1.Items[Listview1.ItemIndex].SubItems[1] enthält den Handler des Sockets
alles wir ausgeführt jedoch kommt nichts beim Clienten an Fehler werden jedoch auch keine gezeigt

Delphi-Quellcode:

for I :=0 to serversocket.Socket.ActiveConnections-1 do begin
  if inttostr(integer(serversocket.Socket.Connections[I]))= Listview1.Items[Listview1.ItemIndex].SubItems[1] then

   begin
    Showmessage(inttostr(serversocket.Socket.ActiveConnections-1)+'-'+Listview1.Items[Listview1.ItemIndex].SubItems[1]) ;
    
    if serversocket.socket.Connections[I].SendBuf(Rec,sizeof(Rec)) = -1 then
    Showmessage('Error') ;
  end;

Das OnRead Ereignis beim Clienten wird nicht einmal aufgerufen ...

davor hat es bei bestimmten bedingungen funktioniert ServerSocket.Socket.Connections[Listview1.ItemIndex].SendBuf(Rec,sizeof(Rec));
also glaube ich nicht das der Fehler beim Clienten liegt
THx
DeluXx