[[AzidRain]]

Si lo que quieres es hacer un Ping para ver si un servidor x está en línea mejor utiliza el componente TIDcmpClient de las Indy, que precisamente hace eso: un ping.

Yo lo hice con esta Función:

Código Delphi [-]
 
function TFConfig.ServerIsUp(aserver:String):Boolean;
var Pinger: TIDcmpClient
Begin
  Pinger:= TIDcmpClient(nil);
  Try
    Pinger.Host := aserver;
    Pinger.Ping;
    ServerIsUp := Pinger.ReplyStatus.BytesReceived <> 0;
  finally
    Pinger.Free;
  end;
end;

Saludos