Merge fixes for Issue #31, #32, #33, #34 into main branch (#35)

Fix several small bugs on original VE3NEA code base:
- Fixes #31
- Fixes #32
- Fixes #33
- Fixes #34

Will be merged into FD prototype after this is merged into main.

Contest.pas

@@ -8,7 +8,7 @@
 interface
 
 uses
-  SysUtils, SndTypes, Station, StnColl, MyStn, Math,  Ini,
+  SysUtils, SndTypes, Station, StnColl, MyStn, Math,  Ini, System.Classes,
   MovAvg, Mixers, VolumCtl, RndFunc, TypInfo, DxStn, DxOper, Log;
 
 type
@@ -80,9 +80,11 @@ constructor TContest.Create;
 destructor TContest.Destroy;
 begin
   Me.Free;
+  FreeAndNil(Stations);
   Filt.Free;
   Filt2.Free;
   Modul.Free;
+  FreeAndNil(Agc);
   inherited;
 end;
 

Main.pas

@@ -311,7 +311,6 @@ procedure TMainForm.FormDestroy(Sender: TObject);
 end;
 
 
-
 procedure TMainForm.AlSoundOut1BufAvailable(Sender: TObject);
 begin
   if AlSoundOut1.Enabled then

QrmStn.pas

@@ -8,8 +8,7 @@
 interface
 
 uses
-  SysUtils, Classes, Station, RndFunc, Ini, CallLst, QuickAvg, SndTypes,
-  Math;
+  SysUtils, Classes, Station, RndFunc, Ini, CallLst;
 
 type
   TQrmStation = class(TStation)

QrnStn.pas

@@ -8,7 +8,7 @@
 interface
 
 uses
-  SysUtils, Classes, Station, RndFunc, Ini, CallLst, QuickAvg, SndTypes,
+  SysUtils, Classes, Station, RndFunc, Ini, CallLst,
   Math;
 
 type

Qsb.pas

@@ -21,6 +21,7 @@   TQsb = class
   public
     QsbLevel: Single;
     constructor Create;
+    destructor Destroy; override;
     procedure ApplyTo(Arr: TSingleArray);
     property Bandwidth: Single read FBandwidth write SetBandwidth;
   end;
@@ -37,6 +38,12 @@ constructor TQsb.Create;
   Bandwidth := 0.1;
 end;
 
+destructor TQsb.Destroy;
+begin
+  FreeAndNil(Filt);
+  inherited;
+end;
+
 function TQsb.NewGain: Single;
 begin
   with Filt.Filter(RndUniform, RndUniform) do

VCL/Mixers.pas

@@ -91,7 +91,7 @@ function TDownMixer.Mix(Data: TSingleArray): TComplexArray;
 var
   i: integer;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data));
   if Phase > TWO_PI then Phase := Phase - TWO_PI * Trunc(Phase/TWO_PI);
 
@@ -110,7 +110,7 @@ function TDownMixer.Mix(Data: TComplexArray): TComplexArray;
   i: integer;
   Sn, Cs, rr, ii: Single;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data));
   if Phase > TWO_PI then Phase := Phase - TWO_PI*Trunc(Phase/TWO_PI);
 
@@ -242,7 +242,7 @@ function TModulator.Modulate(Data: TReImArrays): TSingleArray;
 var
   i: integer;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data.Re));
   for i:=0 to High(Result) do
     begin
@@ -256,7 +256,7 @@ function TModulator.Modulate(Data: TSingleArray): TSingleArray;
 var
   i: integer;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data));
   for i:=0 to High(Result) do
     begin
@@ -270,7 +270,7 @@ function TModulator.Modulate(Data: TComplexArray): TSingleArray;
 var
   i: integer;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data));
   for i:=0 to High(Result) do
     begin
@@ -294,7 +294,7 @@ function TFastDownMixer.Mix(Data: TComplexArray): TComplexArray;
 var
   i: integer;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data));
 
   for i:=0 to High(Data) do
@@ -329,7 +329,7 @@ function TFastDownMixer.Mix(Data: TSingleArray): TComplexArray;
 var
   i: integer;
 begin
-  Integer(Result) := 0;
+  Result := nil;
   SetLength(Result, Length(Data));
 
   for i:=0 to High(Data) do

VCL/VolmSldr.pas

@@ -4,6 +4,7 @@ interface
 
 uses
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  System.Types,
   Math, PermHint;
 
 type