Type used for square signal function generation.

TSquareToneState = record
  Freq: double;
  Mag: double;
  Phase: double;
  Initialized: boolean;
  Tones: TToneStateArray;
end;