Browse Source

* fix for bug #18196, moving teventype broke examples.

git-svn-id: trunk@16559 -
marco 14 years ago
parent
commit
aa93519b5a
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-base/examples/tstelcmd.pp

+ 1 - 1
packages/fcl-base/examples/tstelcmd.pp

@@ -3,7 +3,7 @@
 
 
 program testelcmd;
 program testelcmd;
 
 
-uses eventlog;
+uses eventlog,sysutils;
 
 
 Var
 Var
   E : TEventType;
   E : TEventType;