Type used for sine function generation.

TToneState = record
  Freq: double;
  Mag: double;
  Phase: double;
  Complex: boolean;
  Negative: boolean;
  EdgeFreq: boolean;
  Initialized: boolean;
end;