Помогите с пингом, плиз

[Ky3Heu,]

Надо пропинговать устройство. Делаю так:

procedure TForm1.Button1Click(Sender: TObject);
var error:DWORD;
begin
try
IdIcmpClient1.Ping;
//
error:=GetLastError;
except
end;
if error<>0 then
Application.MessageBox('dbfjsd','shdgfhs',MB_OK)
else
Application.MessageBox('УРРРАААААААААААААА','shdgfhs',MB_OK);
end;

Но это не работает. Почему???

[Квэнди]

Потому что надо анализировать параметры свойства ReplyStatus после выполнения комманды ping. в структуре ReplyStatus и содержится вся информация о результатах.