List View e Sockets - Delphi 7

[Roberto Paes]

Caros amigos, tenho uma aplicação de chat no delphi e gostaria de mandar uma mensagem privada do servidor para um determinado cliente, esse é o código base:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
    var
     i: integer;
begin
Memo1.Text:=Memo1.Text+' '+Socket.ReceiveText+#13#10;                           
     Memo2.Lines.Add(Memo1.Text);
        //essa parte recebe os dados e reenvia para os clientes(broadcast)                                         

            for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
      ServerSocket1.Socket.Connections[i].SendText(Memo1.Text);
Memo1.Text:=' ';

end;
//fim do reader
// começa a listar os clientes conectados 
procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
  var
   i: integer;
   l: tlistitem;
begin
l:=lv.Items.Add;
        l.Caption:= inttostr(socket.Handle);  //cria um handle para o cliente
        l.SubItems.Add(socket.RemoteAddress);  //mostra o ip do cliente conectado
           l.SubItems.Add(i + 1);          //aqui é problema.. como fazer um id com auto increment..
 
        l.Data:=socket.Data;

end;

eu necessito saber o id dos clientes, para implementar esse código :ServerSocket1.Socket.Connections[número do cliente, id].SendText(Memo1.Text);.. só assim pode-se fazer uma espécie de mensagem privada entre o server e o cliente. :( :wacko: :unsure: :blink:

[Jhonas]

l.SubItems.Add(i + 1); //aqui é problema.. como fazer um id com auto increment..

tente fazer o incremento fora do parenteses

abraço