Welcher Client trennt die Verbindung?

[ToXiC]

also ich habe es hiermit versucht:

Delphi-Quellcode:

procedure TForm1.Server1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
VAR check : INTEGER;
begin

check := 0;
REPEAT
IF Server1.Socket.Connections[check].Connected THEN
  BEGIN
  Labe1Ausgabe.Caption := 'Es ist Client' + check;
  END
ELSE
  BEGIN
  check := check + 1;
  END;
UNTIL check = 5;

end;

allerdings erfolglos