1 files changed, 32 insertions, 0 deletions
diff --git a/src/filemonitor.pas b/src/filemonitor.pas
new file mode 100644
index 00000000..0e0fa7a8
--- /dev/null
+++ b/src/filemonitor.pas
@@ -0,0 +1,32 @@
+unit filemonitor;
+
+{$mode objfpc}
+
+interface
+
+uses
+  Classes, SysUtils, fpg_main;
+
+type
+  TFileMonitor = class(TThread)
+  private
+    FInterval: integer;
+  public
+    procedure Execute; override;
+    property  Interval: integer read FInterval write FInterval;
+  end;
+
+implementation
+
+{ TFileMonitor }
+
+procedure TFileMonitor.Execute;
+begin
+  while not Terminated do
+  begin
+
+  end;
+end;
+
+end.
+