IdIcmpClient1Reply

[Alterauge]

Hallo,
bekomme beim ausführen immer eine Fehlermeldung!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  IdIcmpClient1.OnReply := IdIcmpClient1Reply;
  Button1.Enabled := False;
  try
    IdIcmpClient1.Host := '192.168.0.110';
    for i := 1 to 4 do
    begin
      IdIcmpClient1.Ping;
      Application.ProcessMessages;
    end;
  finally
    Button1.Enabled := True;
  end;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if (IdIcmpClient1.ReplyStatus.BytesReceived>0) then
  begin
   Panel1.Color:=clGreen;
   end else
    begin
     Panel1.Color:=clred;
   end;
end;

Fehlermeldung:

Socket Error #10013 Access denied.  ???????????????