определить на активность интернета

[beegl]

Добрый час! Подскажи, как средствами детфи определить на активность интернета, например, если уходит трафик, то ничего не происходит, а если соединение активно и не уходит трафик (частенько у мобильных операторов бывает, исходящий служебный траф уходит в никуда помаленьку, а входящего нет, разъединения не произошло), то вывести сообщение, что интернет не активный?

это пример с модулем RASUnit, проверяет только наличие на соединение с интернетом

Function Connecting: Integer;   
Var   
Conns: Array[1..10] Of TRasConn;   
Size: Integer;   
Num: Integer;   
Begin   
Size:=Sizeof(TRasConn)*10;
Fillchar(Conns, Size, 0);   
Conns[1].DwSize:=Sizeof(TRasConn);   
RASEnumConnectionsA(@conns[1], Size, Num);   
Connecting:=Num;   
End;   
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Connecting <>0 Then
Begin
//CoolTrayIconEx.ShowBalloonHint('Check Internet','Èíòåðíåò ïîäêëþ÷¸í',bitInfo,10);
End Else
If Connecting <=0 Then
begin
if (SleepEx.Checked = True) and (PowerOffEx.Checked = False) then
begin
WindowsShutdownEx1.Sleep;
Halt(1);
end else
if (SleepEx.Checked = False) and (PowerOffEx.Checked = True) then
begin
WindowsShutdownEx1.PowerOff;
end;
end;
end;

подскажите, как проверить и активность соединенного интернета?