IdIcmpClient Host not found

[Horus92]

Помогите пожалуйста я пишу в своей программе дополнение на активность ссылок и хочу проверять их пингом вот мой код

procedure TForm1.Button2Click(Sender: TObject);
begin
idicmpclient1.Host:=treeview1.Selected.Text;
idicmpclient1.Port:=80;
try
idicmpclient1.Ping;
if (CompareStr(IdIcmpClient1.ReplyStatus.FromIpAddress, '0.0.0.0') <> 0)
      and (IdIcmpClient1.ReplyStatus.TimeToLive > 0) then
ListBox1.Items.Add ('Активен') else
ListBox1.Items.Add ('Не активен');
except
    on EIdSocketError do listbox1.items.add('Сайт '+ IdIcmpClient1.Host+' не активен');
end;
end;

и допустим кто-то неправильно введет адрес и чтоб критикал еррор не вылетал а в листбокссе писало что сервера не существует.
а так выдает ощибку

Project Project1.exe raised exception class EidSocketError with message 'Socket Error # 11001 Host not found'

[Пепел Феникса]

а вы запустите не из под Дельфи

[Horus92]

Спасибо и вправду работает