SetLength(ArraySin, 1);
  SetLength(ArrayCos, 1);

    ArrIn,ArrOutSin,ArrOutCos: PArray;
    ArraySin: Array of Real;
    ArrayCos: Array of Real;

destructor THIArrayFT.Destroy;
begin
   if ArrOutSin<> nil then Dispose(ArrOutSin);
   if ArrOutCos<> nil then Dispose(ArrOutCos);
  SetLength(ArraySin, 0);
  SetLength(ArrayCos, 0);  
  inherited;
end;