TClientSocket / TSeverSocket --- Gruppenchat

[HugoHase]

So ich hab das noch mal über arbeitet .... ich hoffe mir kann jemand sagen was daran falsch ist weil jetzt immer noch nen fehler kommt

Delphi-Quellcode:

procedure TFenster.ServerSocketClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var CO, i        : integer;
    name, Liste  : String;
begin
 CO:=0;
 while Member[CO].hdl <> Socket.Handle do
 inc(CO);
 name:=Member[CO].name;
 for i:=CO to length(Member)-2 do
  Member[i]:=Member[i+1];
 SetLength(Member,length(Member)-1);

 for i:= 0 to length(Member)-1 do
 //nur die verkleinern die gr als gelöschte con
  if (Member[i].CO >= 0) and (Member[i].CO > CO) then
   Member[i].CO:= Member[i].CO-1;

  for i:=CO to length(Member)-1 do
   ServerSocket.Socket.Connections[Member[i].CO].SendText('CO'+IntToStr(Member[i].CO));

 ListBoxKontakte.Clear;
 Liste:='';
 for i:=0 to length(Member)-1 do
 begin
  Liste:=Liste+Member[i].name+'|';
  ListBoxKontakte.Items.Add(Member[i].name);
 end;

 sleep(500);
 for i:=0 to length(Member)-1 do
  ServerSocket.Socket.Connections[i].SendText('LI'+Liste);
 sleep(1000);
 MemoVerlauf.Lines.Add('*** We will miss you '+name+' ***');
 for i:=0 to length(Member)-1 do
  ServerSocket.Socket.Connections[i].SendText('TE'+'*** We will miss you '+name+' ***');

end;