Вопрос о Ping!

[TyoshA]

Ребят толька не плюйтесь!Я ещё несавсем знаю работу сетевых компонентов...Так вот...мне нужна приложение каторое бы пинговало какойнибуть Хост(инетовский) и выдавало мне пинг в ms(так как делает каманда в винде ping www.rambler.ru -t)и чтоб программа абрабатывала пинг и при определённом значении выдавала звуковой сигнал...
Праблема вот в чом...

icmp.Host:='81.19.70.1';
icmp.Ping();
showmessage('Время до хоста: '+inttostr(icmp.ReplyStatus.MsRoundTripTime)+'ms');

при компиляции УЖАСНО ругаецца на строчку

ReplyStatus.MsRoundTripTime

Вот такими матами:
[DCC Error] Unit1.pas(33): E2362 Cannot access protected symbol TIdCustomIcmpClient.ReplyStatus
[DCC Error] Unit1.pas(33): E2029 ')' expected but identifier 'MsRoundTripTime' found
[DCC Error] Unit1.pas(33): E2029 'END' expected but ')' found

Подскажите что енто может быть или как реализовать пинг другими средствами но чтоб Пинг можно было обработать...

[Stilet]

Ты чет не то кузявиш
пробуй так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient;

type
  TForm1 = class(TForm)
    IdIcmpClient1: TIdIcmpClient;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure IdIcmpClient1Reply(ASender: TComponent;
      const AReplyStatus: TReplyStatus);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdIcmpClient1.Ping;
end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
caption:=AReplyStatus.FromIpAddress+' '+inttostr(AReplyStatus.MsRoundTripTime);
end;

end.

[TyoshA]

Снкс!=)
Вся праьблема была в том что я ашибочный исходник передрал...Ашибка была в icmp.ReplyStatus.MsRoundTripTime... и в том что нада было ещё 1 процедуру делать...