Узнать ip-адрес компьютера по сети, зная его имя в сети

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Поиск ''' + Edit1.Text + '''');
  Ping1.Size := StrToInt(Edit2.Text);
  Ping1.DnsLookup(Edit1.Text);
end;

procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);
begin
  // Если произошла ошибка, то...
  if Error <> 0 then
  begin
    // Вывести сообщение об ошибке
    Memo1.Lines.Add('Хост не найден ''' + Edit1.Text + '''');
    // Выход
    Exit;
  end;
  // Если ошибок не было, то выводим в RichEdit1 результат поиска
  Memo1.Lines.Add('Хост ''' + Edit1.Text + ''' - ' + Ping1.DnsResult);
  // Устанавливаем //свойство Address компонента Ping равным адресу, найденному в базе DNS
  Ping1.Address := Ping1.DnsResult;
  // Запускаем Ping
  Ping1.Ping;
end;

procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Status: Integer);
begin
  if Error <> 0 then
    Memo1.Lines.Add('Не могу выполнить операцию ping: ' + Ping1.ErrorString)
  else
    Memo1.Lines.Add('Получено ' + intToStr(Ping1.Reply.DataSize) + ' байт от ' +
      Ping1.HostIP + ' за ' + intToStr(Ping1.Reply.RTT) + ' миллисекунд');
end;

procedure TForm1.Ping1EchoRequest(Sender, Icmp: TObject);
begin
  Memo1.Lines.Add('Посылка' + intToStr(Ping1.Size) + ' байтов на ' +
    Ping1.Hostname);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    if Edit1.Text = '' then
    begin
      Beep();
      MessageDlg('Пишите имя компьютера пожалуйста', mtError,[mbOK],0);
      if Edit1.CanFocus then
      Edit1.SetFocus;
      Abort;
    end
     else
    if Edit2.Text = '' then
    begin
      Beep();
      MessageDlg('Размер пакетов не задано ', mtError,[mbOK],0);
      if Edit2.CanFocus then
      Edit2.SetFocus;
      Abort;
    end
    else
    Memo1.Lines.Add('Поиск ''' + Edit1.Text + '''');
    Ping1.Size := StrToInt(Edit2.Text);
    Ping1.DnsLookup(Edit1.Text);
end;