ServerSocket Disconnet(Delphi)

Mam taki kodzik:
function disconnectIP(IP: String; _SSocket: TServerSocket):boolean; var    FI:Integer; begin    result:=false;    for FI:=_SSocket.Socket.ActiveConnections-1 downto 0   do        begin            if _SSocket.Socket..RemoteAddress=IP then begin                _SSocket.Socket.Connections[FI].Disconnect;                 result:=true;                 exit;        end;        end; end;

Daje "disconnectIP('83.28.90.89'(np), ServerSocket1);

I rozlacza nie tylko tego co chce ale tez mnie, why?

Pomocy(co robie źle)?
Użytkownik Matpien edytował ten post 26 sierpień 2005, 21:16

---

we właściwości accept bodajze takie rzeczy sie robi

Nie powinno byc przypadkiem tak:
if _SSocket.Socket.Connections[FI].RemoteAddress=IP then begin

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl