function THIArrayFFT._aGetAmpl;
var
  Index: integer;
begin
  Result := false;
  Index := ToIntIndex(Item);
   if (Index < 0) or (Index > tnn - 1) then exit;
  dtReal(Val, ArrayOutAmpl[Index]);
  Result := true;
end;

  while Arr._Get(eIndex,Item) do begin
    _hi_OnEvent_(_event_onItem,Item);
    if FStop then break;
    inc(Ind,k);
    dtInteger(eIndex,Ind);
  end;