多线程ping IP地址列表在一个listview里(100分)

我的代码如下:
要解决就是多线程ping
procedure TForm1.BitBtn2Click(Sender: TObject);
//测试遍历IP列表显示
var
lp:integer;
ss : TStringList;
str,dec,PingInfo : string;
ping:Tping;
begin
ListView2.clear;
ListView2.Columns.Clear;
ListView2.ViewStyle := vsReport;
//显示listview报表样式
ListView2.SmallImages:=imageList2;
//listview显示图标
for lp := 0 to listview1.items.count - 1 do
//遍历IP列表
begin
str :=listview1.Items[lp].SubItems[0] ;
dec := ':';
ss := split(str,dec);
// ping:=Tping.create ;//一定要初试化哦 //这是我随便写的
// ping.pinghost(ss[0],PingInfo);
//这是我随便写的
if PIN成功 then
Listview2.Items.Add.SubItems.Add(listview1.Items[lp].Caption);
ss.Free;
ping.destroy ;
end;

end;

自已已解决!!

结果贴出来撒，这样就更完整了，顺便顶你一下，赚点小分，嘿嘿。

接受答案了.