destructor TLevel.Destroy (); begin SetLength(FreqLevel, 0); end; ... destructor TData.Destroy (); begin SetLength(Freq, 0); SetLength(Pass, 0); end;