Background will remain the same (depending on options)

2.10/Source/Main.dfm

@@ -27,7 +27,7 @@ object MainForm: TMainForm
     Left = 160
     Top = 28
     Width = 4
-    Height = 514
+    Height = 534
   end
   object ToolBar: TToolBar
     Left = 0
@@ -261,7 +261,7 @@ object MainForm: TMainForm
     Left = 0
     Top = 28
     Width = 160
-    Height = 514
+    Height = 534
     Align = alLeft
     Columns = <
       item
@@ -280,7 +280,7 @@ object MainForm: TMainForm
     Left = 164
     Top = 28
     Width = 402
-    Height = 514
+    Height = 534
     Align = alClient
     BevelInner = bvLowered
     BevelOuter = bvNone
@@ -303,7 +303,7 @@ object MainForm: TMainForm
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 542
+    Top = 562
     Width = 566
     Height = 19
     Panels = <

2.10/Source/Main.pas

@@ -661,10 +661,23 @@ var
   r, s, theta, phi: double;
   skip: boolean;
 *)
+var
+  sourceCP: TControlPoint;
 begin
-  cp1.Free;
-  cp1 := nil;
-  cp1 := RandomFlame(MainCP, alg);
+  if assigned(MainCP) then
+    sourceCP := MainCP.Clone
+  else
+    SourceCP := nil;
+
+  if assigned(cp1) then begin
+    cp1.Free;
+    cp1 := nil;
+  end;
+  cp1 := RandomFlame(sourceCP, alg);
+
+  if assigned(sourceCP) then
+    sourceCP.Free;
+
 (*
   Min := randMinTransforms;
   Max := randMaxTransforms;