[göktürk]

EĞER TESTEN GİDERSEN YANİ AĞDA KULLANILABİLİR İPLERDEN ŞU KODU YAZARSIN VE
OLUŞTURDUĞUN İP ARALIĞI DİZİSİNDE BU ÇIKAN ELEMANLARI ÇIKARIRSAN BELKİ OLUR

procedure TForm1.Button1Click(Sender: TObject);
begin
IdNetworkCalculator1.NetworkAddress.AsString:='192.168.100.100';
IdNetworkCalculator1.NetworkMask.AsString:='255.255.0.0';
StatusBar1.Panels[0].Text:=IdNetworkCalculator1.startip;
StatusBar1.Panels[1].Text:=IdNetworkCalculator1.endip;
StatusBar1.Panels[2].Text:=IdNetworkCalculator1.NetworkAddress.asstring;
StatusBar1.Panels[3].Text:=IntToStr(IdNetworkCalculator1.numip);
end;
procedure TForm1.Button2Click(Sender: TObject);
//Listele
var
deger:TStrings;
begin
 
deger:=TStringList.create 
; 

IdNetworkCalculator1.NetworkAddress.AsString:='192.168.100.100';
IdNetworkCalculator1.NetworkMask.AsString:='255.255.0.0';
deger:=IdNetworkCalculator1.listip;
ListBox1.Items:=deger;
end;