При пинге выскакивает ошибка

[Aleksandr]

Не пойму почему на одном компе работает, а на другом выскакивает ошибка. Использую компонент Indy.
Вот простой код пинга

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
 str:string;
  begin
str:=inttostr(AReplyStatus.BytesReceived);
if str<>'0' then
begin
//  led1.OffColor:=Orange;
//  led1.LedState:=LedOn ;
  ShowMessage('Есть');
  end
else
begin

//  led1.OffColor:=red;
//  led1.LedState:=LedOff;
   ShowMessage('Нет');
end;


end;

procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Host:='192.168.4.92';
IdIcmpClient1.Ping();
end;

[Aleksandr]

Все проблему решил. Нужно было запускать с правами администратора.