Ping на Delphi

var
  sl, slRez : TStringList;

.....


 sl :=  TStringList.Create;
 slRez := TStringList.Create; 
 sl.LoadFromFile('ПутьКВашемуТекстовомуФайлу.txt');
 butPing.Enabled := False;
 for i:=0 to sl.Count-1 do begin
   slRez.Clear;
   DoPing(sl.Strings, slRez);
   Item := ListView1.Items.Add;
   Item.Caption := sl.Strings; 
   if slRez.Count>0 then
     Item.SubItems.Add('В сети')
   else
     Item.SubItems.Add('не в сети');
 end;

 ...

 FreeAndNil(sl);
 FreeAndNil(slRez);