IdIcmpClient .ping Socket-Fehler #10040nachricht zu lang

[Markus_Kohl]

Hi,
ich möchte ein kleines Tool zum pingen mehrer Rechner erstellen.
Das Programm funktioniert, solange die IP erreichbar ist.
Ist die IP nicht erreichbar kommt die Fehlermeldung "socket-Fehler #10040nachricht zu lang"

Hier mal der Quellcode.

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
var sPingLogResult : string;
begin
 Ping.Host := ComputerIP.text;
 Ping.Ping();

 Case ping.ReplyStatus.ReplyStatusType Of
  rsEcho : Begin
                         sPingLogResult := 'erfolgreich';
                       End;
  rsError : Begin
                         sPingLogResult := 'Fehler';
                       End;
  rsTimeOut : Begin
                         sPingLogResult := 'TimeOut';
                       End;
  rsErrorUnreachable : Begin
                         sPingLogResult := 'nicht Erreichbar';
                       End;
  rsErrorTTLExceeded : Begin
                         sPingLogResult := 'TTL überschritten';
                       End;
End;

 edit1.Text:=sPingLogResult;
end;

end.

Kann mir jemand sagen, wo der Fehler liegt, habe nicht hier im Forum oder in google gefunden.

Achso, ja ich führe das Programm mit Administratorrechten aus.

Gruß
Markus