Anpingen komisches Problem

[youuu]

Hi, so ping ich eine Webseite an.

Delphi-Quellcode:

var
  IdICMPClient1: TIdIcmpClient;
Begin
  IdICMPClient1 := TIdICMPClient.create(nil);

  try
    try
      IdICMPClient1.IPVersion := Id_IPv4;
      IdICMPClient1.PacketSize := 1024;
      IdICMPClient1.Port := 0;
      IdICMPClient1.ReceiveTimeout := 5000;
      IdICMPClient1.Protocol := 1;
      IdICMPClient1.ProtocolIPv6 := 58;
      IdICMPClient1.Host := 'www.test.de';
      IdIcmpClient1.Ping();
      case IdIcmpClient1.ReplyStatus.ReplyStatusType of
        rsEcho: Result := True;
        else Result := False;
      end;

    except
      on E: Exception do begin
        Showmessage(E.Message);
        Result := False;
      end;
    end;
  finally
    FreeAndNil(IdICMPClient1);
  end;
End;

Das funktioniert auf meinem Laptop mit WLan auch wunderbar, jedoch auf meinen Standrechner mit Lan wirft er mir immer "access denied" raus.
Ich dachte sofort an Firewall, hab ich alles ausgeschaltet, Fehler bleibt aber bestehen. Bin gerade etwas ratlos.