دوستان مشکل این کد چیه ؟

[hamid20live]

دوستان مشکل این کد چیه ؟

procedure TTraffic.NewCycle(const InOctets, OutOctets, TrafficSpeed: Dword);
begin
Inc(self.FSecondsActive);
If not Running then Exit;
FSpeed := TrafficSpeed;
//IN
self.FInPerSec := InOctets - self.PrevCountIn;
Inc(self.FInTotal, self.InPerSec);
if InPerSec > 0 then Inc(FActiveCountIn);
if InPerSec > PeakInPerSec then FPeakInPerSec := InPerSec;
try
self.FAverageInPerSec := InTotal div ActiveCountIn
except
self.FAverageInPerSec := 0
end;
FPrevCountIn := InOctets;
//OUT
self.FOutPerSec := OutOctets - self.PrevCountOut;
Inc(self.FOutTotal, self.OutPerSec);
if OutPerSec > 0 then Inc(FActiveCountOut);
if OutPerSec > PeakOutPerSec then FPeakOutPerSec := OutPerSec;
try
self.FAverageOutPerSec := OutTotal div ActiveCountOut;
except
self.FAverageOutPerSec := 0;
end;
FPrevCountOut := OutOctets;
end;