En Delphi puedes usar las Indi Clients - TIdIcmpClient.
Código Delphi
[-]
procedure TForm1.BtnPingClick(Sender: TObject);
begin
IdIcmpClient1.Host := '192.168.1.1';
IdIcmpClient1.Ping;
end;
procedure TFMMain.IdIcmpClient1Reply(ASender: TComponent;
const AReplyStatus: TReplyStatus);
begin
end;