procedure TForm1.Button1Click(Sender: TObject);
type
  InAddr = Array[0..10] of PInAddr;
  TInAddr = ^InAddr;
var
  Host: PHostEnt;
  pPtr: TInAddr;
  Buffer: Array[0..63] of char;
  i: Integer;
  Socket: TWSAData;
begin
   ListBox1.Clear;
   WSAStartup( $101, Socket );
   GetHostName( Buffer, SizeOf( Buffer ) );
   Host := GetHostByName( buffer );
   if Host = nil then Exit;
   pPtr := TInAddr( Host^.h_addr_list );
   i := 0;
   while pPtr^[i] <> nil do
   begin
      ListBox1.Items.Add( inet_ntoa( pPtr^[i]^ ) );
      Inc( i );
   end;
   WSACleanup;
end;

 if  ProgressBar1.Position=ProgressBar1.Max then
  begin
   Form2.Show;
   Timer1.Enabled:=false;
  end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
i:=ProgressBar1.Max;
ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = i then
begin
Timer1.Enabled:=False;
Form2.ShowModal;
end;
end;