2 files changed, 7 insertions, 4 deletions
diff --git a/examples/apps/uidesigner/uidesigner.lpr b/examples/apps/uidesigner/uidesigner.lpr
index 9104bed5..9b75daaa 100644
--- a/examples/apps/uidesigner/uidesigner.lpr
+++ b/examples/apps/uidesigner/uidesigner.lpr
@@ -25,8 +25,7 @@ uses
   {$ENDIF}{$ENDIF}
   Classes, SysUtils, fpgfx, vfdmain, vfdresizer, vfdforms,
   vfdfile, newformdesigner, vfdwidgets, vfdformparser, vfdeditors,
-  vfdwidgetclass, vfdutils, vfdprops, vfddesigner, vfdpropeditgrid,
-  fpgui_toolkit;
+  vfdwidgetclass, vfdutils, vfdprops, vfddesigner, vfdpropeditgrid;
 
 
 procedure MainProc;
@@ -45,6 +44,8 @@ begin
     fpgApplication.MainForm := frmMain;
     fpgApplication.Run;
     
+    PropList.Free;
+    
   finally
     maindsgn.Free;
   end;
diff --git a/examples/apps/uidesigner/vfdwidgets.pas b/examples/apps/uidesigner/vfdwidgets.pas
index fb41337f..099cf4c5 100644
--- a/examples/apps/uidesigner/vfdwidgets.pas
+++ b/examples/apps/uidesigner/vfdwidgets.pas
@@ -24,6 +24,7 @@ interface
 uses
   SysUtils,
   Classes,
+  contnrs,
   vfdwidgetclass,
   vfdprops,
   typinfo;
@@ -65,7 +66,7 @@ uses
 
 var
   FVFDFormWidget: TVFDWidgetClass;
-  FVFDWidgets: TList;
+  FVFDWidgets: TObjectList;
 
 function VFDFormWidget: TVFDWidgetClass;
 begin
@@ -442,10 +443,11 @@ end;
 
 
 initialization
-    FVFDWidgets := TList.Create;
+    FVFDWidgets := TObjectList.Create;
 
 finalization
     FVFDWidgets.Free;
+    FVFDFormWidget.Free;
     
 end.