begin 
  for i:=ListView1.Items.Count-1 downto 0 Do
  begin
      TCustomWinSocket(ListView1.Items[i].Data).SendText('我上线了');  //这个好比是A消息
  end;
  
  send_all;  //这个好比是B消息
-------------------------------------------------------------------function Tform1.send_all : string;    //send_all函数
var
  i,j: integer;
  ip_string: string;
begin
  ip_string := '@@@@@@';  for j:=ListView1.Items.Count-1 downto 0 Do
  begin
    ip_string := ip_string + ListView1.Items[j].SubItems.strings[0]+';
  end;
end;