Verificar codigos!

[martonbarbosa]

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!


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