Frage zum TINA_Ping

Const
  dpIP4 : Array[0..5] of Byte = (254,1,3,150,11,200);
  dpIP  : String  = '192.168.001.';

Var
  dpCounter             : Byte;
  PingTime              : Word;

Procedure Main3;
  Begin
    StrToIP(dpIP+ByteToStr(dpIP4[dpCounter]),IP1);
    PingTime:=TINA_Ping(IP1,1000);
    gDrawString(0,32+Integer(dpCounter*8),1,1,TxtRot0,dpIP+ByteToStr(dpIP4[dpCounter]:3:'0')+': '+
                                                      IntToStr(PingTime:5:'0')+'ms');
    If not IncToLim(dpCounter,5)
      then
        dpCounter:=0;
      EndIf;
    If Life=true
      then
        gFillRect(235,0,239,4,$FF);
      else
        gFillRect(235,0,239,4,$00);
      EndIf;
    Toggle(Life);
    gDispRefresh;
    mDelay(100);
  End Main3;