Code/Schleife extrem langsam

[omata]

Versuch doch mal folgendes...

Delphi-Quellcode:

var
  I: Integer;
begin
  ListBox1.Items.BeginUpdate;
  try
    for I := ntohl(inet_addr(PAnsiChar(AnsiString(edit1.text)))) to
             ntohl(inet_addr(PAnsiChar(AnsiString(edit2.text)))) do
    begin
      ListBox1.Items.Append(string(inet_ntoa(TInAddr(htonl(I)))));
    end;
  finally
    ListBox1.Items.EndUpdate;
  end;
end;