[nash]

hola gente soy novato en todo esto de programacion pero por algo se empiesa yo estaba asiendo algo como esto y no se donde poner esto en q clase de boton o en el listview no encuentro como alguien me lo esplica si esta n amable...

saludos!!! y muchas grasias

procedure TForm1.Connect1Click(Sender: TObject);
var
intNumConnect, intSocket: integer;
begin
intNumConnect:=-1;

if listView1.ItemIndex = -1 then begin
    showmessage('There is no server selected');
    exit;
   end
   else
   begin
   intSocket:= StrToInt(listView1.Selected.Caption);
   repeat
   intNumConnect:= intNumConnect + 1;
   if
   ServerSocket1.Socket.Connections[intNumConnect].SocketHandle=IntSocket then
   ServerSocket1.Socket.Connections[intNumConnect].SendText('connect');
   until
   (intNumConnect + 1) = ServerSocket1.Socket.ActiveConnections;
   end
end;