Small addition try finally

Steema · Oct 2, 2024 · 7ee61fd · 7ee61fd
1 parent 4b6983f
commit 7ee61fd
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/demos/VCL/Header_Footer/Unit_Header_Footer.pas b/demos/VCL/Header_Footer/Unit_Header_Footer.pas
@@ -40,8 +40,11 @@ procedure TFormHeaderFooter.Button1Click(Sender: TObject);
 var tmp : TTeeGrid;
 begin
   tmp:=TTeeGrid.Create(Self);
-  tmp.Assign(TeeGrid1);
-  tmp.Free;
+  try
+    tmp.Assign(TeeGrid1);
+  finally
+    tmp.Free;
+  end;
 end;
 
 type