#pas
begin
  _Angle2Pi:=Pi*2;  // зачем считаем ? 1. нигде не применяем. 2. Да ещё и перед then exit;
  ArrIn := ReadArray(_data_Array);
   if (ArrIn = nil) or (ArrIn._Count = 0) then exit;
//............