1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TInter.Timer1Timer(Sender: TObject);
var i: integer;
    ip:string;
begin
 for i:=0 to Listview1.Items.Count do
  begin
   ip := ListView1.Items.Item[i].SubItems.Strings[0];

   ping1.Hostname := ip;
   ping1.action;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TInter.Ping1Ping(sender: TObject; status, ip,
  roundtime: Integer);
begin
  if status = ip_success then
   begin
    //ping ok
   end
    else
      //ping nicht ok
end;