Copy ASpectrum to the calling spectrum.
procedure Copy(ASpectrum: TSpectrum); virtual; overload;
public