1 files changed, 8 insertions, 1 deletions
diff --git a/examples/apps/ide/src/filemonitor.pas b/examples/apps/ide/src/filemonitor.pas
index 674109b2..2bb35409 100644
--- a/examples/apps/ide/src/filemonitor.pas
+++ b/examples/apps/ide/src/filemonitor.pas
@@ -55,6 +55,7 @@ type
     procedure DoFileChangeNotification;
   public
     constructor CreateCustom;
+    destructor Destroy; override;
     procedure Execute; override;
     property  Interval: LongWord read FInterval write FInterval;
     procedure AddFile(const AFilename: TfpgString);
@@ -154,10 +155,16 @@ end;
 constructor TFileMonitor.CreateCustom;
 begin
   Create(True);
-  FFileList := TObjectList.create;
+  FFileList := TObjectList.create(True);
   FInterval := 500;
 end;
 
+destructor TFileMonitor.Destroy;
+begin
+  FFileList.Free;
+  inherited Destroy;
+end;
+
 procedure TFileMonitor.Execute;
 var
   i: integer;