diff --git a/Client/CentrED.lpi b/Client/CentrED.lpi
index 012bb7d..6b6455a 100644
--- a/Client/CentrED.lpi
+++ b/Client/CentrED.lpi
@@ -17,9 +17,9 @@
-
-
-
+
+
+
@@ -50,6 +50,7 @@
+
@@ -98,6 +99,7 @@
+
@@ -134,7 +136,7 @@
-
+
@@ -148,11 +150,11 @@
-
+
-
+
@@ -454,12 +456,9 @@
+
+
-
-
-
-
-
diff --git a/Client/Tools/UfrmHueSettings.lfm b/Client/Tools/UfrmHueSettings.lfm
index 659851f..edeaa49 100644
--- a/Client/Tools/UfrmHueSettings.lfm
+++ b/Client/Tools/UfrmHueSettings.lfm
@@ -9,6 +9,7 @@ inherited frmHueSettings: TfrmHueSettings
ClientWidth = 225
Constraints.MinWidth = 225
OnCreate = FormCreate
+ OnDestroy = FormDestroy
object lblHue: TLabel[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edHue
diff --git a/Client/Tools/UfrmHueSettings.pas b/Client/Tools/UfrmHueSettings.pas
index e07ebb0..2d13567 100644
--- a/Client/Tools/UfrmHueSettings.pas
+++ b/Client/Tools/UfrmHueSettings.pas
@@ -60,6 +60,7 @@ type
procedure cbRandomPresetChange(Sender: TObject);
procedure edHueEditingDone(Sender: TObject);
procedure FormCreate(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
procedure lbHueDrawItem(Control: TWinControl; Index: Integer; ARect: TRect;
State: TOwnerDrawState);
procedure lbHueSelectionChange(Sender: TObject; User: boolean);
@@ -229,6 +230,11 @@ begin
LoadRandomPresets;
end;
+procedure TfrmHueSettings.FormDestroy(Sender: TObject);
+begin
+ FreeAndNil(FRandomHuePresetsDoc);
+end;
+
procedure TfrmHueSettings.lbHueDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; State: TOwnerDrawState);
var