Code/Schleife extrem langsam

[Namenloser]

Delphi-Quellcode:

var
  I: Integer;
begin

  listbox1.Items.BeginUpdate; 

  for I := ntohl(inet_addr(PAnsiChar(AnsiString(edit1.text)))) to
           ntohl(inet_addr(PAnsiChar(AnsiString(edit2.text)))) do
    listbox1.items.Add(string(inet_ntoa(TInAddr(htonl(I)))));

  listbox1.Items.EndUpdate;
end;