Verificar codigos!
 

Hola gente como les va?

Este es mi primer post en este foro....

La razon del mismo: es que estoy haciendo un chat en delphi 7 y tengo un par de codigos que no me cierren o no me funcionan como deberian!

Paso a explicar, tengo 1 form que funciona como servidor y tiene el componente TServerSocket. y un cliente con un TClientSocket.

Basicamente quiero que me den una manito sobre este codigo que les voy a poner a continuacion, porque no me cierra. si bien funciona, creo que no esta del todo bien y quiero ver si existe la posibilidad de resumirlo un poco!

Código Delphi [-]
procedure TForm1.ServerSocket1ClientDisconnect(Sender: TObject;
  Socket: TCustomWinSocket);
var
List, Lab, Tra : integer;
begin
 sndplaysound('C:\Windows\Media\Sonido de cierre de sesión de Windows XP.wav', SND_NODEFAULT Or SND_ASYNC);
 with label1 do
  begin
   Caption := 'Estado Conexion: Desconectado';
   for Lab := 1 to ServerSocket1.Socket.ActiveConnections -1 do
    begin
     Caption := 'Estado Conexion: Conectado';
    end
  end;

 with listbox1.Items do
  begin
   Clear;
   for List  := 1 to serversocket1.Socket.ActiveConnections -1 do
    begin
     Add(ServerSocket1.Socket.Connections[list].RemoteAddress);
    end
  end;

 with TrayIcon1 do
  begin
   Tip := 'Servidor de : ' + obtenerUsuarioRed + #13 + #10 + 'Estado: Desconectado';
   for Tra  := 1 to serversocket1.Socket.ActiveConnections -1 do
    begin
      Tip := 'Servidor de : ' + obtenerUsuarioRed + #13 + #10 + 'Estado: Conectado ' + ServerSocket1.Socket.Connections[Tra].RemoteAddress;
    end;
  end;
end;

Desde ya muchas gracias, y cualquier informacion que necesiten, no duden en pedirmela!

atte: M@rton