цикл ip адресов(Delphi)

[Алиби]

как организовать цикл ip адресов

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
ping,arp,findstr,echo:string;
begin
     ping:=    'ping -n 1 -w 400 -l 1 192.168.2.i ';
 findstr:=   '  findstr динам >> D:\file0.txt  ';
 arp:=   'arp -a 192.168.2.i';
 echo:=' echo 192.168.2.i'   ;
 allocconsole;
  for i:=1 to 254 do

  format( '%D,%d,%D,%D',[192,168,2,i]);
 WinExec( pchar(ping + arp + echo + findstr ),sw_SHOWnormal);
  end;
end.

[Алиби]

знаю что делаю не правильно не могу понять как сделать