... Replicas:=IcmpSendEcho(IcmpHandle, inet_addr(DestinationAddress), RequestData, RequestSize,0, ReplyBuffer, ReplySize, Timeout) y de ahí no pasa, ¿sabeis por que pasa esto? Un Saludo. Mil Gracias. Aqui está la función completa: function Ping(DestinationAddress) local IcmpHandle,Replicas,bPing:=.f. ...